环境是server2003,sql为2008r2,VB连接数据库,用代码连接
2条回答 默认 最新
- 普通网友 2018-01-14 11:13关注
我用例题说明吧。Dim cn As New ADODB.Connection
Dim rs As New ADODB.recordSet
Dim sql As String
Dim i As Integer
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MZJJSFXT;Data Source=."
sql = "select * from 门诊收费信息表"
rs.Open sql, cn, adOpenKeyset, adLockOptimistic
Set MSHGrid1.DataSource = rsrs.Close Set rs = Nothing cn.Close Set cn = Nothing这是我之前做的一个界面代码,就是用代码连接的,不理解的话可以发出疑问。 觉得有用请帮我点个赞
解决 无用评论 打赏 举报
悬赏问题
- ¥15 ubuntu子系统密码忘记
- ¥15 信号傅里叶变换在matlab上遇到的小问题请求帮助
- ¥15 保护模式-系统加载-段寄存器
- ¥15 matlab求解平差
- ¥15 电脑桌面设定一个区域禁止鼠标操作
- ¥15 求NPF226060磁芯的详细资料
- ¥15 使用R语言marginaleffects包进行边际效应图绘制
- ¥20 usb设备兼容性问题
- ¥15 错误(10048): “调用exui内部功能”库命令的参数“参数4”不能接受空数据。怎么解决啊
- ¥15 安装svn网络有问题怎么办