Avatar billede -l_jogge_l- Nybegynder
29. oktober 2003 - 14:43 Der er 9 kommentarer og
1 løsning

Vb 6.0 til VB.net Hjælp!

Da jeg lavede Database opkoblinger i VB 6.0 brugte jeg denne sætning:
-------------------------------------------------------------
Dim datDB As Database
Dim RsTest As Recordset
Dim strSQL As String

Set datDB = DBEngine.Workspaces(0).OpenDatabase(C.\DB.mdb)
strSQL = "SELECT * FROM data"
RsTest = datDB.OpenRecordset(strSQL)

TextBox1.text = RsTest("Test")
-----------------------------------------------------------

Men det kan jeg ikke gøre i VB.net..... hvordan gør jeg så????
Avatar billede -l_jogge_l- Nybegynder
29. oktober 2003 - 15:36 #1
Er der ikke nogen der kan henvis til en Guide eller noget der kan hjælpe mig lidt igang med VB.net'en???
Avatar billede arne_v Ekspert
29. oktober 2003 - 21:41 #2
Kørende eksempel:

Imports System
Imports System.Data.SqlClient

Class MainClass

    Public Shared Sub Main(ByVal args As String())
        Dim con As SqlConnection = New SqlConnection ("server=ARNEPC2;Integrated Security=SSPI;database=Test")
        con.Open
        Dim cmd As SqlCommand = New SqlCommand ("SELECT * FROM T1", con)
        Dim rdr As SqlDataReader = cmd.ExecuteReader
        While rdr.Read
            Dim f1 As Integer = CType(rdr(0), Integer)
            Dim f2 As String = CType(rdr(1), String)
            Console.WriteLine(f1 & " " & f2)
        End While
        con.Close
    End Sub
End Class
Avatar billede arne_v Ekspert
29. oktober 2003 - 21:42 #3
Det er konverteret fra C# så jeg ved ikke hvor VB'sk det er, men det
virker som sagt !
Avatar billede graspman Nybegynder
29. oktober 2003 - 21:54 #4
Imports System.Data.OleDb 'til databasen

Dim MinConnString As String = "c:\db1.mdb"
        Dim Minconn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & MinConnString)
        Dim selectCMD As OleDbCommand = New OleDbCommand(" SELECT Underomraade_navn, Omraade_navn FROM Underomraade WHERE Omraade_navn ='" & ComboBox4.Text & "'", Minconn)
        Dim underomraadeDS As New DataSet()
        Dim myAdap As OleDbDataAdapter = New OleDbDataAdapter()
        Dim a, i As Integer
        ComboBox5.Text = "-- Vælg område --"
        selectCMD.CommandTimeout = 30
        myAdap.SelectCommand = selectCMD
        myAdap.Fill(underomraadeDS)
        ComboBox5.Items.Clear()

        a = underomraadeDS.Tables(0).Rows.Count - 1  ' Løkke til manuelt at fylde en comboboks op med
        For i = 0 To a  ' Løkke til at fylde combobox5 op med
            ComboBox5.Items.Add(underomraadeDS.Tables(0).Rows(i).Item("Underomraade_navn"))
        Next
        'DataGrid1.DataSource = underomraadeDS
        'GenererInstuksNr(underomraadeDS)

    End Sub
Avatar billede arne_v Ekspert
29. oktober 2003 - 21:58 #5
Det eksempel har ihvertfald en forskel over min: det er også Access, mit
eksempel er til SQLServer !
Avatar billede -l_jogge_l- Nybegynder
30. oktober 2003 - 09:29 #6
Arne_V: Der kommer en fejl på de her ord:
OleDbConnection
OleDbCommand
OleDbDataAdapter

Er der en refferece jeg skal have slået til eller hvad????
Avatar billede arne_v Ekspert
30. oktober 2003 - 09:31 #7
Du skal muligvis have tilføjet det der indeholder System.Data.OleDb til dit
projekt.

Hvordan er IDE specifikt.
Avatar billede -l_jogge_l- Nybegynder
30. oktober 2003 - 09:35 #8
Graspman.... det spm var til dig... sorry
Avatar billede -l_jogge_l- Nybegynder
30. oktober 2003 - 09:41 #9
Hvordan tilføjer jeg: System.Data.OleDb til projektet?????
Avatar billede arne_v Ekspert
30. oktober 2003 - 10:22 #10
Hvilket udviklings værktøj bruger ?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester