Wakuu,
Katika kufanya connection kati ya vb6 na sql server2008 r2 kila kitu kimeenda sawa (zimeonana). Tatizo ni tables zinashindwa kuonekana na kinachoonekana ni database name tu.
Hivyo nikiwa nina run message ifuatayo inaonekana. Naomba msaada...
Run-time error '-2147217865 (80040e37)'
[Microsoft] [ODBC SQL SERVER DRIVER][SQL SERVER] Invalid object name 'iwadco_user'
Niki-debug line inakuwa allocated hii yenye red color
If DBConnect(sqlserverdata(0), sqlserverdata(1), sqlserverdata(2), sqlserverdata(3)) = True Then
lblStatus.Caption = "Complete..."
rsCheck
rs.Open "SELECT * FROM iwadco_user WHERE status='E'", CN, adOpenStatic, adLockOptimistic
If rs.RecordCount = 0 Then
frmAddUser.Show
Else
'frmLogin.Show
frmMain.Show
End If
Unload Me
Timer1.Enabled = False
Else
X = -1
frmSetDB.txtConDb.Text = sqlserverdata(0)
frmSetDB.txtUser.Text = sqlserverdata(1)
frmSetDB.TxtPass.Text = sqlserverdata(2)
frmSetDB.txtDb.Text = sqlserverdata(3)
Kill App.Path & "\config.ini"
MsgBox "Remote server not found or Access Denied!", vbExclamation, Me.Caption
End If
End If
X = X + 1
End Sub
Pia kama kuna uwezekano itakuwa vizuri tukitumia team viewer...
Shukrani wakuu!!!
Katika kufanya connection kati ya vb6 na sql server2008 r2 kila kitu kimeenda sawa (zimeonana). Tatizo ni tables zinashindwa kuonekana na kinachoonekana ni database name tu.
Hivyo nikiwa nina run message ifuatayo inaonekana. Naomba msaada...
Run-time error '-2147217865 (80040e37)'
[Microsoft] [ODBC SQL SERVER DRIVER][SQL SERVER] Invalid object name 'iwadco_user'
Niki-debug line inakuwa allocated hii yenye red color
If DBConnect(sqlserverdata(0), sqlserverdata(1), sqlserverdata(2), sqlserverdata(3)) = True Then
lblStatus.Caption = "Complete..."
rsCheck
rs.Open "SELECT * FROM iwadco_user WHERE status='E'", CN, adOpenStatic, adLockOptimistic
If rs.RecordCount = 0 Then
frmAddUser.Show
Else
'frmLogin.Show
frmMain.Show
End If
Unload Me
Timer1.Enabled = False
Else
X = -1
frmSetDB.txtConDb.Text = sqlserverdata(0)
frmSetDB.txtUser.Text = sqlserverdata(1)
frmSetDB.TxtPass.Text = sqlserverdata(2)
frmSetDB.txtDb.Text = sqlserverdata(3)
Kill App.Path & "\config.ini"
MsgBox "Remote server not found or Access Denied!", vbExclamation, Me.Caption
End If
End If
X = X + 1
End Sub
Pia kama kuna uwezekano itakuwa vizuri tukitumia team viewer...
Shukrani wakuu!!!