dim cn,cmd,cmdrc,driver_name,para driver_name="Provider=MSDAORA.1;Password=pass;User ID=user;Data Source=afis;Persist Security Info=True" set cn = server.CreateObject("adodb.connection") cn.open driver_name set cmd=server.CreateObject("adodb.command") set cmdrc=server.CreateObject("adodb.recordset") cmd.CommandType = 1 set para = cmd.Parameters
Private Sub Command1_Click() Dim conn As ADODB.Connection Dim cmd As ADODB.Command Dim rs As ADODB.Recordset Set conn = New ADODB.Connection conn.CursorLocation = adUseClient conn.Open "Provider=MSDAORA.1;" & _ "Password=qsun;User ID=qsun;" & _ "Data Source=manu;" Set cmd = New ADODB.Command cmd.ActiveConnection = conn cmd.CommandType = adCmdText
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货