vb连接sqlserver
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
利用adodc通过vb连接sqlserver
1、首先在添加控件：点击工具栏里面的“工程”---“部件”
---在控件选项卡下面选择“microsoft ado data control
6.0(sp6)”和“microsoft datagrid control 6.0(sp6)”。
2、在左侧工具中双击adodc控件和datagrid控件
3、右击Adodc1，在弹出的下拉菜单中选择“Adodc
properties”。
4、在属性页里面选择“use connection string”，然后点击
“build”，在出现的窗口中选择“microsoft OLE DB provider for SQL Server”，然后点击“下一步”。
5、在出现的对话框中选择或输入服务器名称的下面输入
“yang-pc\SQLExpress”，在输入登录服务器的信息下面选择“使用windows NT 集成安全设置”，在在服务器上选择数据库下面选择想要连接的数据库。
6、Recordsource 下的command type 选择1-adcmd text
7、点击“测试连接”。
Private Sub 读取_Click()
Adodc1.RecordSource = "select * from 员工信息表order by 员工编号desc"
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub 修改_Click()
Adodc1.RecordSource = "select * from 员工信息表where 员工姓名='徐工'"
Set DataGrid1.DataSource = Adodc1
With Adodc1.Recordset
.Fields(1) = "高德"
.UpdateBatch
End With
End Sub
Private Sub 增加_Click()
DataGrid1.AllowAddNew = True
With Adodc1.Recordset
.AddNew
.Fields(0) = 1003
.Fields(1) = "徐汇"
.Fields(2) = 1001
.Fields(3) = "员工"
.Fields(4) = "男"
.Fields(5) = 1
.Fields(6) = 4
.Fields(7) = 2
.Fields(8) = 1800
.Update
End With
With Adodc1.Recordset
.AddNew
.Fields(0) = 1009
.Fields(1) = "徐福"
.Fields(2) = 1001
.Fields(3) = "员工"
.Fields(4) = "男"
.Fields(5) = 1
.Fields(6) = 4
.Fields(7) = 2
.Fields(8) = 1800
.Update
End With
End Sub
Private Sub 查询_Click()
Adodc1.RecordSource = "select * from 员工信息表where 所在职位='员工'"
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub 删除_Click() DataGrid1.AllowDelete = True With Adodc1.Recordset
.Delete
.Update
.MoveNext
End With
End Sub。