Ayuda con el error 3021
Tengo una aplicacion que permite guardar y modificar datos de una base de datos pero cuando voy a actualizar me da el error 3021, no hay registros en la base de datos pero los registros existe? que puedo hacer
Me parece que la solucion esta en poner "Persist Security Info=False" al momento de abrir la conexion.
Adjunto codigo de ejemplo y la direccion donde fue encontrado:
http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/VB_Databases/Q_20741473.html
Private Sub txtBranchNo_change()
Dim con As ADODB.Connection
Dim rec As ADODB.Recordset
Dim strName As String
Set con = New ADODB.Connection
Set rec = New ADODB.Recordset
strName = "Select PHARMACYBRANCHCODES.[Branch No],PHARMACYBRANCHCODES.[Branch Name] From PHARMACYBRANCHCODES Where PHARMACYBRANCHCODES.[Branch No] =" & txtBranchNo.Text & ""
con.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:fyfyhguyg.mdb"
rec.Open strName, con
If rec.RecordCount <> 0 Then
rec.MoveFirst
txtBranchName.Text = rec.Fields("Branch Name")
End If
End Sub
Adjunto codigo de ejemplo y la direccion donde fue encontrado:
http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/VB_Databases/Q_20741473.html
Private Sub txtBranchNo_change()
Dim con As ADODB.Connection
Dim rec As ADODB.Recordset
Dim strName As String
Set con = New ADODB.Connection
Set rec = New ADODB.Recordset
strName = "Select PHARMACYBRANCHCODES.[Branch No],PHARMACYBRANCHCODES.[Branch Name] From PHARMACYBRANCHCODES Where PHARMACYBRANCHCODES.[Branch No] =" & txtBranchNo.Text & ""
con.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:fyfyhguyg.mdb"
rec.Open strName, con
If rec.RecordCount <> 0 Then
rec.MoveFirst
txtBranchName.Text = rec.Fields("Branch Name")
End If
End Sub