hi all,
i get a run-time error '424': Object Required on the last line below, and i can't figure out why...
[code=vb] Dim adoConn As New ADODB.Connectio n
Dim adoCmd As New ADODB.Command
Dim adoRecSet As New ADODB.Recordset
' "SELECT dbDescription,d bExternal FROM EuroPrice WHERE dbFAB = '" & Format(txtFAB.T ext, "@@@ @@@ @@@@") & "'"
adoConn.Connect ionString = "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source = C:\Documents and Settings\qtomly c\My Documents\Price List.mdb" & ";User ID=Admin;Passwo rd=;"
adoConn.Open
adoCmd.CommandT ext = "spGetEuro"
adoCmd.CommandT ype = adCmdStoredProc
Dim adoParam As New ADODB.Parameter
adoParam.Name = "@FAB"
adoParam.Type = adVarChar
adoParam.Value = Format(Replace( txtFAB.Text, " ", ""), "@@@ @@@ @@@@")
adoCmd.Paramete rs.Append (adoParam)[/code]
i got the idea to the adoCmd.Paramete rs.Append (adoParam) command from asp.net, where i would have used .Parameters.Add (adoParam), and figured append would be the same as add here. is it not?
i get a run-time error '424': Object Required on the last line below, and i can't figure out why...
[code=vb] Dim adoConn As New ADODB.Connectio n
Dim adoCmd As New ADODB.Command
Dim adoRecSet As New ADODB.Recordset
' "SELECT dbDescription,d bExternal FROM EuroPrice WHERE dbFAB = '" & Format(txtFAB.T ext, "@@@ @@@ @@@@") & "'"
adoConn.Connect ionString = "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source = C:\Documents and Settings\qtomly c\My Documents\Price List.mdb" & ";User ID=Admin;Passwo rd=;"
adoConn.Open
adoCmd.CommandT ext = "spGetEuro"
adoCmd.CommandT ype = adCmdStoredProc
Dim adoParam As New ADODB.Parameter
adoParam.Name = "@FAB"
adoParam.Type = adVarChar
adoParam.Value = Format(Replace( txtFAB.Text, " ", ""), "@@@ @@@ @@@@")
adoCmd.Paramete rs.Append (adoParam)[/code]
i got the idea to the adoCmd.Paramete rs.Append (adoParam) command from asp.net, where i would have used .Parameters.Add (adoParam), and figured append would be the same as add here. is it not?
Comment