Dim cn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset
Set cn1 = New ADODB.Connection
'自己的连接字符串
cn1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=gsm;Data Source=DPNT1"
'打开的数据
cn1.Open (location_info)
Dim sqlstr As String
'sqlstr 具体的sql语句
Set rs1 = cn1.Execute(sqlstr)
Dim rs1 As ADODB.Recordset
Set cn1 = New ADODB.Connection
'自己的连接字符串
cn1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=gsm;Data Source=DPNT1"
'打开的数据
cn1.Open (location_info)
Dim sqlstr As String
'sqlstr 具体的sql语句
Set rs1 = cn1.Execute(sqlstr)
解决方案 »
- 请问如何在模块中加载form中的combobox的值?
- 怎样使点击form上面的关闭按扭不关闭form?即当用户点击的时候失效并可以加入自己的事件??谢谢!
- 高分求助!如何识别扑克牌是几点
- 加载程序的时候提示:控件 PETOCX1 的类 PETOCXLib.PETOCX 不是一个已加载的控件类。我该怎么做啊???急!!!!
- 请问如何实现这样的分页窗体
- com调用出错!
- 利用了回调的毫秒级定时器怎么老爱挂掉?
- 一个用户控件的问题!请求帮助!
- 填字游戏的原代码,要的人留个信箱,不要的就算了!(最好你的显示器是17寸的,或1024*768)
- 问一个简单的问题
- 我在程序中动态加的用户控件和直接拖到FORM上的控件的事件和属性怎么不一样,动态加的只出来两个属性,而直接拖到FORM上的都有。
- 关于shell的一个问题
或者是使用连接字符串啊!