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

hi there...

Fisrt of all.. please always apoint the line that gives you the error..

any way.. i think that your problem is in Microsoft.Jet.OLEDB.3.6..

should it be maybe 3.5?? or 4.0??

HTH...

Gonzalo Bianchi

exactly ! that's were the error is...
but how should i solve that?

what database are you trying to connect???

Gonzalo Bianchi

an access2000 db

ok.. try with this Microsoft.Jet.OLEDB.4.0 in the provider line...

Gonzalo Bianchi

no same thing hapens! :(

is this the dev. machine or the user machine??

maybe you will have to install jet 4.0 again???


Gonzalo Bianchi

its the developer machine..
How do i install the jet?? installing access will do?

get the jet pack from microsoft.. that will be better...

Gonzalo Bianchi