Någon som har gjort en fungerande databaskoppling till en accessdatabas i VB.NET.VB.NET Databas koppling
Skulle ni i så fall vilja visa den här då jag inte får rätt på det
AndersSv: VB.NET Databas koppling
hej.
Eftersom igen annan har svarat så gör jag det...
Detta är hämtat direkt från ett ex i en bok:
<code>
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=False"
Dim odbConn As New OleDbConnection()
Dim SQL As String = "SELECT * FROM Authors"
Dim objComm As New OleDbCommand()
'Dim objRRAuthors As OleDbDataReader = Nothing
Dim DA As New OleDbDataAdapter()
Dim dsAuthors As New DataSet()
odbConn.ConnectionString = conStr
odbConn.Open()
objComm.Connection = odbConn
objComm.CommandText = SQL
DA.SelectCommand = objComm
'objRRAuthors = objComm.ExecuteReader()
'While objRRAuthors.Read
' MsgBox(objRRAuthors.GetString(1))
' Exit While
'End While
DA.Fill(dsAuthors, "Test")
Dim drAuthor As DataRow
For Each drAuthor In dsAuthors.Tables.Item("Test").Rows
MsgBox(drAuthor.Item("Author").ToString())
Exit For
Next
End Sub
</code>