Har en databas i access2000 och försöker ansluta från VB6 via recordset. Får på raden Set strSesamb = strSesama.OpenRecordset("VisaForsBeh") fel runtime 13 Type mismatch. Håller på att testa en applikation där jag bara gör vb-delen får ett recordset via ett comobjekt som ett annat företag skapat och nu behöver jag testa vb-applikationen att den funkar mot ett recordset därför kan jag inte använda ADOaccess2000 och VB6 och recordset
Den hittar databasen men sen är det stopp. Kan inte fatta varför, koden ser i korthet ut som nedan
Option Explicit
Dim EPAPI As Object
Dim strSesam As String
Dim strPnr As String
Dim strABGnr As String
Dim strAvd As String
Dim i As Integer
Dim strEPA As String
Dim ifa As Integer
Dim arPuma(9) As String
Dim blnFinnsFeltext As Boolean
Dim strSesama As Database
Dim strSesamb As Recordset
Dim strPumaa As Database
Dim strPumab As Recordset
Public Sub Form_Load()
ChDrive App.Path
ChDir App.Path
Set strSesama = OpenDatabase("sesam.mdb")
End Sub
Public Sub sesamkoll()
Set strSesama = OpenDatabase("sesam.mdb")
MsgBox (strSesama.Name)
Set strSesamb = strSesama.OpenRecordset("VisaForsBeh")
End Sub
//CamillaSv: access2000 och VB6 och recordset