如何用代码实现和sql server 数据库的连接?

lanzhouese 2003-03-31 12:57:51
本人刚刚学习bv6请问如何实现和数据库的连接,用代码?
谢谢!
...全文
17 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
xks 2003-04-01
在窗体放三个文本框!

一个确定按钮和一个取消按钮!

确定按钮代码如下:
Private Sub Command1_Click()
On Error Resume Next
Dim DBC As New DataBaseConnection
If db.State = 1 Then
db.Close
End If
db.ConnectionString = DBC.SqlConnectString(Text1.Text, Text2.Text, Text3.Text)
rs.CursorType = adOpenDynamic
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
Set cmd.ActiveConnection = db
If Err.Number Then
MsgBox Err.Description, 16 + vbOKOnly, Err.Number
Exit Sub
End If
db.DefaultDatabase = "student1" 'student1换成你要连接的数据库名称
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
If Err.Number Then
MsgBox Err.Description, 16 + vbOKOnly, Err.Number
Exit Sub
End If
Form1.Show
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

以上是连接服务器代码

Public Function SqlConnectString(ServerName As String, UserName As String, password As String) As String
SqlConnectString = "Provider=SQLOLEDB.1;User ID=" + UserName + ";Pwd=" + password + ";Data Source=" + ServerName
End Function

这是类模块DataBaseConnection代码

有问题发消息给我!
回复
griefforyou 2003-03-31
Dim Cn As New ADODB.Connection

Cn.Open "Driver={SQL Server};Server=机器名;Uid=sa;pwd=sa;database=master"
回复
griefforyou 2003-03-31
Dim Cn As New ADODB.Connection

Cn.Open "Driver={SQL Server};Server=机器名;Uid=sa;pwd=sa"
回复
zhangbob 2003-03-31
http://expert.csdn.net/Expert/topic/1574/1574903.xml?temp=.3856012
回复
lxcc 2003-03-31

Public Sub DBOpen()
cn.ConnectionTimeout = 25
cn.Provider = "sqloledb"
cn.Properties("Data Source").Value = sServerName
cn.Properties("Initial Catalog").Value = sDatabaseName
cn.Properties("User ID").Value = sUserName
cn.Properties("Password").Value = sPassword
Screen.MousePointer = vbHourglass
cn.Open
Screen.MousePointer = vbDefault
End Sub


分别指定sql服务器名称,数据库名称,用户名称,密码即可
回复
Cooly 2003-03-31
搜索一下以前的帖子或查看VB版的FAQ
回复
相关推荐
基于java的企业人事管理系统设计--软件工程课程设计(含源码与论文设计).rar 1 引言 4 1.1 课程设计目标 4 1.2 编程工具(编程环境)介绍 4 1.3 实施时间及主要实施步骤 4 2 需求分析 5 3 系统总体设计 6 4 数据设计 6 5 主要功能模块的设计与实现 10 5.1 功能模块1详细设计(综合查询员工信息)..........................................................10 5.1.1 详细设计.......................................................................................................10 5.1.2 算法流程........................................................................................................15 5.1.3 界面设计及测试结果.....................................................................................15 6 调试分析 15 7 户手册 16 8 测试结果 17 8.1 员工信息的添加...................................................................................................17 8.2 员工信息的修改...................................................................................................17 8.3 员工信息的删除...................................................................................................18 8.4 员工信息的综合查询...........................................................................................18 8.5 员工信息按性别统计的结果................................................................................19 8.6 员工信息按状态统计的结果...............................................................................19 8.7 员工信息按职称统计的结果................................................................................20 9 结论 20 10 参考文献 20
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-03-31 12:57
社区公告
暂无公告