hey yer barred
Board Regular
- Joined
- Jun 19, 2007
- Messages
- 232
Hi
I'm trying to get a VB6 from to link to a FoxPro (.dbf) database. No matter how long I spend google-ing the answer, i cannot find it! My code is below;
Private Sub Command1_Click()
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
sPath = "\\Wrsensnw002\DATA1\SHARED\DOCS\Justin()\db"
sConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & sPath & "; Extended Properties=dBASE IV;"
db.ConnectionString = sConn
db.Open
With rs
.ActiveConnection = db
.CursorType = adOpenKeyset
.LockType = adLockPessimistic
.Open "SELECT * FROM tblNovell"
End With
MsgBox rs!Agent & " " & rs!Novell
End Sub
It connects fine, but I get a error on the .Open "SELECT * FROM tblNovell" - It says the table is in a unexpected format....anyone know what I can do to fix this please?
I'm trying to get a VB6 from to link to a FoxPro (.dbf) database. No matter how long I spend google-ing the answer, i cannot find it! My code is below;
Private Sub Command1_Click()
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
sPath = "\\Wrsensnw002\DATA1\SHARED\DOCS\Justin()\db"
sConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & sPath & "; Extended Properties=dBASE IV;"
db.ConnectionString = sConn
db.Open
With rs
.ActiveConnection = db
.CursorType = adOpenKeyset
.LockType = adLockPessimistic
.Open "SELECT * FROM tblNovell"
End With
MsgBox rs!Agent & " " & rs!Novell
End Sub
It connects fine, but I get a error on the .Open "SELECT * FROM tblNovell" - It says the table is in a unexpected format....anyone know what I can do to fix this please?
