现有一个SQL Sever数据库,名称database,路径:E:\VB_Work\data\database,密码:***,其中要连接的表名称为:table1。用vb的ADO连接该数据库,并且记录指针指向表table1中,字段 build=Text1.text 的值的那条记录。建立好连接后,将指定记录的数据加载进DataGrid表格中。这段代码应该怎么写呢?
解决方案 »
- winsock 数组 如何根据控件数组中的名称命名接收到的图片
- 如何获取指定网页源码中变量的值(内容)
- 请教:CommondDialog 当ShowPrinter时如何让打印份数自动获得焦点?
- 跪求,VB中,水晶报表子报表数据的显示问题。
- 各位,请教一个截取GPS数据的问题,请高手给回复一个,谢谢!
- 平台:大家把自己常用的第三方控件,功能以下载地址列出来!供大家参考交流!参与有分。
- 为什么第一次划就那么小, 再点一次就画得那么大?
- 在api中类型为const char* 的参数,在VB中应该如何声明?
- 问关于MDI的问题,
- 我裝了一個DDN,有一個固定IP,能實現發傳真功能嗎?(20--->100分)
- 跪地下恳求解决如下vb错误
- 50分 求关于dataGrid控件的小例子
Private Sub Command1_Click()
On Error GoTo err
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=database;Data Source=服务器别名" cn.Open
rs.CursorLocation = adUseClient '设置客户端游标
rs.Open "SELECT * FROM table1 WHERE build= '"& Text1.text & "'", cn, 3, 2 Set DataGrid1.DataSource=rs
Exit Sub
err:
MsgBox err.Description
End Sub
//你的问题问错了SQL只有IP服务器,没有物理的database
data source=" & App.Path & "\datebase"
===================
这种写法也是对的