29. oktober 2003 - 14:43Der 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)
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
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)
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.