about supplyer not installed prob
hi there i'm trying to insert some data to an existing access database.
the problem is every time i execute a command, it gives me an error: the supplyer not found . Could not be installed run-time error nr 3706
here is the code i've so far for this method:
Private Sub Comando24_Click()
Dim rs As Recordset
Dim cnn As Connection
Dim strSQL, pn, un, dtv, nocc, bcc, eml, pw As String
Dim NumCl, tlf, ncc As Integer
Dim bl As Boolean
Set cnn = New Connection
Set rs = New Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.3.6;Data Source=D:\Documents and Settings\bruno\My Documents\Copy of soinformatica_final.mdb;"
rs.Open "Cliente", cnn
pn = Trim(Me.Pr_Nome)
un = Trim(Me.Ul_Nome)
tlf = Trim(Me.Telefone)
eml = Trim(Me.Email)
ncc = Trim(Me.Num_cc)
nocc = Trim(Me.Nome_cc)
bcc = Trim(Me.Banco_cc)
dtv = Trim(Me.Data_Val_cc)
pw = Trim(Me.Password)
'strSQL = "INSERT INTO Cliente Pr_Nome, Ul_Nome, Telefone, Email, Num_cc, Nome_cc, Banco_cc, Data_Val_cc, Password VALUES pn, un, tlf, eml, ncc, nocc, bcc, dtv, pw"
'If (pn <> "") And (un <> "") And (pw <> "") Then
'MsgBox (pn & " : primeiro nome; " & un & ": ultimo nome")
'("INSERT INTO Cliente Pr_Nome, Ul_Nome, Telefone, Email, Num_cc, Nome_cc, Banco_cc, Data_Val_cc, Password VALUES pr_nome1, ul_nome1, telefone1, email1, num_cc, nome_cc1, banco_cc1, data_val_cc1, password1")
bl = rs.Supports(adAddNew)
MsgBox (bl)
'DoCmd.RunSQL strSQL
'rs.AddNew
'rs!Pr_Nome = pn
'rs!Ul_Nome = un
'rs!Password = pw
'rs.Update
'End If
'para remover cliente:
'NumCl = InputBox("Qual o numero de cliente a ser eliminado?")
'cnn.Execute "DELETE FROM Cliente WHERE Id_Cliente = " & strNumClEl
' Do While Not rs.EOF
' If Val(rs.AbsolutePosition) = NumCl Then
' rs.Delete
' Exit Do
' Else: rs.MoveNext
' End If
' Loop
' strID = Trim(InputBox("Enter employee ID:"))
' strFirstName = Trim(InputBox("Enter first name:"))
' strLastName = Trim(InputBox("Enter last name:"))
' rs.Close
'cnn.Close
End Sub
--------------------------
hoping to get some feedback, i thank you in advance.
eureko
|
