'运行VB,选择“工程\引用”命令,引用“Microsoft AetiveX Date 2.x Library” Dim Conn As ADODB.Connection Dim rs As ADODB.Recordset Dim Str As String 连接数据库(ODBC数据源): Set Conn = New ADODB.Connection Conn.Open "数据源名称","用户","密码" 打开查询记录集: Str = "select * from TableName " Set rs = New ADODB.Recordset rs.Open Str, Conn, adOpenKeyset, adLockOptimistic 用MSHFlexGrid控件显示查询结果: Set MSHFlexGrid1.DataSource = rs 关闭对象 rs.Close Conn.Close
用存储过程啊!Dim cmd As ADODB.Command Set cmd = New ADODB.Command cmd.ActiveConnection = Con cmd.CommandType = adCmdStoredProc cmd.CommandText = "存储过程名" cmd.Execute
用楼上的方法很好啊,存储过程会做吧,相关SQL书上也有介绍的
對呀﹐使用存儲過程就可以了﹐這樣的話代碼里就沒有SQL語句了。
通过vb的ado对象连接数据库,对数据库的操作可以通过调用后台的数据库的存储过程进行处理.
引用:用存储过程啊!Dim cmd As ADODB.Command Set cmd = New ADODB.Command cmd.ActiveConnection = Con cmd.CommandType = adCmdStoredProc cmd.CommandText = "存储过程名" cmd.Execute补充: 符合楼主意见,想法,VB前台,TSQL后台
Dim rs As ADODB.Recordset
Dim Str As String 连接数据库(ODBC数据源):
Set Conn = New ADODB.Connection
Conn.Open "数据源名称","用户","密码" 打开查询记录集:
Str = "select * from TableName "
Set rs = New ADODB.Recordset
rs.Open Str, Conn, adOpenKeyset, adLockOptimistic 用MSHFlexGrid控件显示查询结果:
Set MSHFlexGrid1.DataSource = rs 关闭对象
rs.Close
Conn.Close
Set cmd = New ADODB.Command
cmd.ActiveConnection = Con
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "存储过程名"
cmd.Execute
Set cmd = New ADODB.Command
cmd.ActiveConnection = Con
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "存储过程名"
cmd.Execute补充:
符合楼主意见,想法,VB前台,TSQL后台