Private Sub Command1_Click() Dim con As New ADODB.Connectioncon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=sa;Initial Catalog=jack;Data Source=T8" con.Open con.Execute "CREATE PROCEDURE au_info1 AS insert into test2(xm,age,sr,jj) values('sssssssss',20,'1990-01-01','aaaa')" con.Execute "au_info1" End Sub 用ado对象吧
Private Sub Command1_Click() Dim con As New ADODB.Connection Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=sa;Initial Catalog=jack;Data Source=T8" con.ConnectionString = Adodc1.ConnectionString con.Open con.Execute "au_info1" End Sub
Dim con As New ADODB.Connectioncon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=sa;Initial Catalog=jack;Data Source=T8"
con.Open
con.Execute "CREATE PROCEDURE au_info1 AS insert into test2(xm,age,sr,jj) values('sssssssss',20,'1990-01-01','aaaa')"
con.Execute "au_info1"
End Sub
用ado对象吧
Dim con As New ADODB.Connection
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=sa;Initial Catalog=jack;Data Source=T8" con.ConnectionString = Adodc1.ConnectionString
con.Open
con.Execute "au_info1"
End Sub
rst.open "spName(1,2,3)",con,,,adCmdStoredProc