Private Sub Form_Load() With Adodc1 .ConnectionString = "Provider=SQLOLEDB.1;Password=dg;User ID=sa;Initial Catalog=pubs;Data Source=." .CommandType = adCmdStoredProc .RecordSource = "zyqtest('123')" .Refresh End With
Set DataGrid1.DataSource = Adodc1 End Sub CREATE PROCEDURE zyqtest @w varchar(50) AS select * from yhma where yhm =@w GO --多参数可以用逗号分隔
Private Sub Form_Load()
With Adodc1
.ConnectionString = "Provider=SQLOLEDB.1;Password=dg;User ID=sa;Initial Catalog=pubs;Data Source=."
.CommandType = adCmdStoredProc
.RecordSource = "zyqtest('123')"
.Refresh
End With
Set DataGrid1.DataSource = Adodc1
End Sub
CREATE PROCEDURE zyqtest @w varchar(50) AS
select * from yhma where yhm =@w
GO
--多参数可以用逗号分隔