我这里有一个VB的员工管理程序，原因是缺少数据库，能不能帮忙做个数据库给连接上？

来源：百度知道 编辑：UC知道 时间：2024/05/31 09:44:32
在程序里有登陆的窗口，因为缺少数据库，无法运行，数据库最好是用SQL server连接的，程序代码里面有关于登陆的账号密码，但是不会连接SQL，关于程序可以发给你看下，哪位能帮助一下，谢谢！
做好是能帮我做 一下，我可以把程序发给你！QQ:401060465

'SQL server连接 得要有 SQL服务器才行 ,有了SQL服务器,就可以建一个数据库
'给你一个连接字符串函数
Function SQLDrv(DBFile As String, DbSer As String, _
Optional DBUserID As String, Optional DBPWD As String) As String 'SQL数据库驱动
Dim DBconn As String
If Len(DBUserID) > 0 Then DBUserID = "User ID=" & DBUserID & ";"
If Len(DBPWD) > 0 Then DBPWD = "Password=" & DBPWD & ";"
DBconn = "Provider=SQLOLEDB.1;" _
& "Persist Security Info=False;" _
& "Data Source=" & DbSer & ";" _
& "Initial Catalog=" & DBFile & ";" _
& DBUserID & DBPWD
SQLDrv = DBconn
End Function
'用法
dim Dim DB As New ADODB.Connection
db.open SQLDrv("数据库名","SQL服务器IP","用户名","密码")

数据库要根据代码设计，如果仅仅是登录的sql的话，基本都是username，password，权限。

不懂，