Article ID: 170381
Article Last Modified on 11/3/2003
CREATE TABLE dbo.TestCallTable (
F1 int NOT NULL
CONSTRAINT UPKCL_F1ind PRIMARY KEY CLUSTERED,
F2 varchar (4) NULL ,
F3 varchar (8) NULL
)
GO
Private Sub Command1_Click()
Dim en As rdoEnvironment
Dim cn As New rdoConnection
Dim Qd As New rdoQuery
Set en = rdoEngine.rdoEnvironments(0)
With cn
.Connect = "uid=<username>;pwd=<strong pasword>;database=Pubs;dsn=Jtest;"
.CursorDriver = rdUseClientBatch
.EstablishConnection Prompt:=rdDriverNoPrompt
End With
Set Qd.ActiveConnection = cn
With Qd
.SQL = "Insert into TestCallTable Values(?,?,?)"
.rdoParameters(0) = 1
.rdoParameters(1) = "A"
.rdoParameters(2) = "A Test"
.Execute
End With
End Sub
.rdoParameters(0) = 1
Keywords: kberrmsg kbprb KB170381