Question

请问:VB和SQL是这样连接的? 这样实现数据的查询,添加,修改,删除等功能的

Answer 1

MSSQL

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=exam;Data Source=."
'data source 这里可以打一个英文半角的. 也可以写成IP
conn.Open
sql = "select * from exam_dx"
rs.CursorLocation = adUseClient
rs.Open sql, conn, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
End Sub

技巧（控件连接）

可以先添加一个ado控件右键打开它的属性窗口
点生成这个按钮

选择SQL这一项 下一步

选择服务器名称 （就是你自己机器的名字）
用户名: "sa" 默认的都是sa 没有密码

如果是ACCESS选择jet 4.0这个 然后选择数据路路径就可以 其他操作一样

测试成功 点确定

完后回到adodc1属性页这里点纪录源
添上要检索的SQL语句 确定

画一个datagrid控件出来

属性页里datasource里绑定adodc1

对着datagrid1右键 选检索字段 ->选择是
这样你直接运行就可以看到数据库里的纪录了

反向：adodc1属性里把adodc1使用连接字符串里的东西拷贝出来

Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=exam;Data Source=2F837C57293B43E
把data source为机器名称、IP或着.都可以
这样你就不用背这句代码 datagrid也可以和二维表的布局一致