死活跑不起来，晕死了~``郁闷~``帮忙看看啊，谢谢了~~~~~~

2005-11-12 04:35:21 248 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

《通信工程施工与管理》制作馈线接头必须使用专用的工具，专用工具包括:馈线切割刀、馈线安全刀、小金属丝毛刷、固定尺寸或大号活动扳手、小号扁锉刀、细齿小手锯、接头扩孔器、3M防水胶或防水接头盒;如图所示，详情如表所示。阅读详情

Dim conn As ADODB.Connection
Dim cmd As ADODB.Command
Dim constr As String
Dim rs As ADODB.Recordset
'创建数据库对象
Set conn = New ADODB.Connection
Set cmd = New ADODB.Command
Set rs = New ADODB.Recordset

'配置连接参数
constr = "Provider=SQLOLEDB.1;Persist Security Info=True;Password=sa;User ID=sa;" & _
"Initial Catalog=VB6.0通用进销存管理系统;Data Source=KNIGHTRCOM"
conn.connectionString = constr

'打开连接
Call conn.Open
Dim sqlQuery As String
sqlQuery = "SELECT * FROM 用户信息 WHERE 登录ID=?"
'指派连接对象实例
cmd.ActiveConnection = conn

cmd.CommandType = adCmdText
cmd.CommandText = sqlQuery

Dim param As ADODB.Parameter
Set param = New ADODB.Parameter
param.Name = "登录ID"
param.Type = adVarChar
param.value = "Admin"
param.size = 100
cmd.Parameters.Append param

Set rs = cmd.Execute(flag)
Debug.Print CStr(flag) + Chr(10)
Exit Sub

...全文