Hallo zusammen, ich bin Anfänger und habe nun folgendes Problem mit meinem Programmcode...
im form_load definiere ich meinen Datenbankzugriff wie folgt...
Dim strAppPath As String
strAppPath = <relativer Pfad>
m_strDBFileName = strAppPath & <datenbakname>.mdb
conString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & _
m_strDBFileName
bei durchlauf des Programmes werden Daten in Varaiablen gespeichert und sollen dann mittels eines Programm Buttons in dieser Datenbank gespeichert werden. Dazu benutze ich folgenden Code:
If File.Exists(m_strDBFileName) = False Then
MsgBox("Datenbank nicht gefunden", vbCritical, "Fehler")
Exit Sub
End If
oConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & m_strDBFileName
oConn = New OleDbConnection(oConnect)
oQuery = "INSERT INTO <TABELLE>(A_WebAdresse, A_Hersteller," & _
" A_Typ)" & _
" VALUES ('" & tmpFgWebAdresse & _
"', '" & tmpFgHersteller & _
"', '" & tmpFgTyp & "')"
Try
oConn.Open()
' create a data adapter
Dim da As OleDbDataAdapter = New OleDbDataAdapter(oQuery, oConn)
' create a new dataset
Dim ds As dbDataSet1 = New DataSet
' fill dataset
da.Fill(ds.Name)
Catch ex As OleDb.OleDbException
Catch ex As Exception
'Show error message and return failure
MsgBox(ex.Message & vbCrLf & ex.StackTrace)
End Try
oConn.Close()
Me.DataTableAdapter1.Fill(Me.DbDataSet1.Name)
leider übernimmt die Datenbak aber die Daten nicht.. Was mache ich falsch? ich benutze vb2005 und eine MS-Access Datenbank...
Kann mir jemand hier helfen?
im form_load definiere ich meinen Datenbankzugriff wie folgt...
Dim strAppPath As String
strAppPath = <relativer Pfad>
m_strDBFileName = strAppPath & <datenbakname>.mdb
conString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & _
m_strDBFileName
bei durchlauf des Programmes werden Daten in Varaiablen gespeichert und sollen dann mittels eines Programm Buttons in dieser Datenbank gespeichert werden. Dazu benutze ich folgenden Code:
If File.Exists(m_strDBFileName) = False Then
MsgBox("Datenbank nicht gefunden", vbCritical, "Fehler")
Exit Sub
End If
oConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & m_strDBFileName
oConn = New OleDbConnection(oConnect)
oQuery = "INSERT INTO <TABELLE>(A_WebAdresse, A_Hersteller," & _
" A_Typ)" & _
" VALUES ('" & tmpFgWebAdresse & _
"', '" & tmpFgHersteller & _
"', '" & tmpFgTyp & "')"
Try
oConn.Open()
' create a data adapter
Dim da As OleDbDataAdapter = New OleDbDataAdapter(oQuery, oConn)
' create a new dataset
Dim ds As dbDataSet1 = New DataSet
' fill dataset
da.Fill(ds.Name)
Catch ex As OleDb.OleDbException
Catch ex As Exception
'Show error message and return failure
MsgBox(ex.Message & vbCrLf & ex.StackTrace)
End Try
oConn.Close()
Me.DataTableAdapter1.Fill(Me.DbDataSet1.Name)
leider übernimmt die Datenbak aber die Daten nicht.. Was mache ich falsch? ich benutze vb2005 und eine MS-Access Datenbank...
Kann mir jemand hier helfen?