VB链接SQL数据库代码

链接SQL数据库的方法一: 

Sub Main()
On Error GoTo On_error
'frmWelcome.Show
Set con = New ADODB.Connection
con.ConnectionString = ("Provider=SQLOLEDB;User ID=sa;PWD=;Initial Catalog=human;Data Source=.")
con.Open
con.CommandTimeout = 20
Load frmLogin
frmLogin.Show vbModal
Exit Sub
On_error:
If Err.Number = -2147467259 Or Err.Number = -2147217900 Then
Unload frmWelcome
MsgBox "检查到 SQL Server 未安装或软件所需数据库未安装..." & vbCrLf & "正在进一步检查 SQL Server 的安装情况,若已启动则开始安装数据库... ", vbInformation + vbOKOnly, "系统提示"
Shell (App.Path & "/Installdb.exe")
End
Else
MsgBox Err.Number & Err.Description, vbInformation + vbOKOnly, "系统提示"
End
End If
End Sub

链接SQL数据库方法二:

【vb连接sql】
[code]
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addFlag As Boolean

Public Function OpenCn(ByVal Cip As String) As Boolean
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 25
conn.Provider = "sqloledb"
conn.Properties("data source").Value = Cip    '服务器的名字
conn.Properties("initial catalog").Value = "zqoa"           '库名
'conn.Properties("integrated security").Value = "SSPI"   '登陆类型
conn.Properties("user id").Value = "sa"
conn.Properties("password").Value = "sa"
conn.Open
OpenCn = True
addFlag = True
Exit Function
strerrmag:
    mag = "Data can't connect"
    Call MsgBox(mag, vbOKOnly, "Error:Data connect")
    addFlag = False
    Exit Function
End Function


Public Sub cloCn()
On Error Resume Next
If conn.State <> adStateClosed Then conn.Close
Set conn = Nothing
End Sub

Public Function openRs(ByVal strsql As String) As Boolean   '连接数据库记录集
Dim mag As String
Dim rpy As Boolean
On Error GoTo strerrmag
    Set rs = New ADODB.Recordset
    If addFlag = False Then rpy = True
    With rs
    .ActiveConnection = conn
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open strsql
    End With
    addFlag = True
    openRs = True
    End
    'Exit Function
strerrmag:
    mag = "data not connect"
    Call MsgBox(mag, vbOKOnly, "error:connect")
    openRs = False
    End
    'Exit Function
End Function
Public Sub cloRs()
On Error Resume Next
If rs.State <> adStateClosed Then rs.Clone
Set rs = Nothing
End Sub

访问SQL数据方法三:

可以用工ADODB呀,把连接数据库的语句都用代码写出来我就喜欢这样做项目控制起来也容易一些。
Dim con As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset

无帐号密码的连接 ConnectString = " DRIVER=SQL Server;SERVER=伊广舜(SQL服务器名);APP=Visual Basic;WSID=伊广舜;DATABASE=物资管理系统;Trusted_Connection=Yes"

有帐号密码(sa)con.ConnectionString = "DRIVER=SQL Server;SERVER=" & "" & ";UID=sa;PWD=" & "" & ";DATABASE=cc"
con.Open

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VB中连Access数据库代码如下: 1. 导入ADO组件: 在VB的工程中,需要先引用"Microsoft ActiveX Data Objects" (ADO) 组件。导入库的方式是:打开工程,点击“Project” 菜单 -》选择“Reference” -》 然后在“Available References”中勾选“Microsoft ActiveX Data Objects”选项即可。 2. 建立连字符串: 连字符串的格式一般如下:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\myfolder\mydatabase.mdb;User Id=admin;Password=;,其中,Provider表示数据提供程序,Jet OLEDB 4.0表示访问Access数据库,Data Source表示数据库文件路径,User Id和Password表示用户登录时使用的用户名和密码,如果没有设置,则设置为空。 3. 建立数据库对象: 使用代码新建一个ADO数据库对象,代码如下: Dim MyCon As ADODB.Connection Set MyCon = New ADODB.Connection 4. 建立连: 使用ADO数据库对象进行数据库的连代码如下: MyCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\myfolder\mydatabase.mdb;User Id=admin;Password=;" 5. 执行SQL语句: 连成功后,可以查询、添加、删除、更新等操作Access数据库中的数据,通过执行SQL语句实现,例如查询所有数据表中的数据,代码如下: Dim rs As New ADODB.Recordset rs.Open "select * from table1", MyCon, adOpenStatic, adLockOptimistic 6. 关闭连数据库操作完成后,应当关闭数据库代码如下: MyCon.Close 以上就是VBAccess数据库代码,需要根据实际情况进行修改和调整。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值