![[计算机]VB代码 连接SQL数据库](https://swf.iask.com/Gj8pAf1aAho.svg?ssig=yCi6%2Br%2BDfE&Expires=1719091078&KID=sina,ishare&range=0-6415)
[计算机]VB代码 连接SQL数据库
VB代码 连接SQL数据库
Private Sub Command1_Click()
If Option1.Value = True Then
Db.ConnectionString = " Provider=SQLOLEDB.1;Password=" & Text4.Text & ";Persist
Security Info=True;User ID=" & Text3.Text & ";Initial Catalog=" & "KJ70" & ";Data Source=" &
Text1.Text
Else
Db.ConnectionString = " Provider=SQLOLEDB.1;Password=" & Text4.Text & ";Persist
Security Info=True;User ID=" & Text3.Text & ";Initial Catalog=" & "KJ70" & ";Data Source=" &
Text2.Text
End If
Db.Open
If Db.State = adStateOpen Then
If Option1.Value = True Then
Connected_Zhuji = True '主机连接标志
Else
Connected_Zhuji = False '主机连接标志
Form1.Combo_GasLoad_Place.Enabled = False
Form1.Combo_GasLoad_Place_2.Enabled = False
End If
Command1.Enabled = False
Command2.Enabled = True
Option1.Enabled = False
Option2.Enabled = False
Devece_Name '载入KJ70中的传感器模拟量类型名
If Connected_Zhuji Then
Gas_Load_Place '载入瓦斯涌出量数据库中的瓦斯传感器位置
End If
End If
End Sub
Private Sub Devece_Name()
Dim i As Integer
i = 0
Rs.Open "SELECT DISTINCT 设备名1 From 设备 WHERE (firstFrequencyUp <> 0)", Db, adOpenForwardOnly, adLockReadOnly
Do While Not Rs.EOF
Form1.Combo1.List(i) = Rs(0)
i = i + 1
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
End Sub
Private Sub Command2_Click()
Db.Close
If Db.State = adStateClosed Then
Set Db = Nothing
Command1.Enabled = True
Command2.Enabled = False
Option1.Enabled = True
Option2.Enabled = True
Form1.Comd_quen.Enabled = False
Form1.Command3.Enabled = False
Form1.ComFrontDay.Enabled = False
Form1.ComBehDay.Enabled = False
Form1.Combo1.Clear
Form1.Combo2.Clear
Form1.Combo_GasLoad_Place.Enabled = False
End If
End Sub
Private Sub Form_Load()
If Db.State = adStateOpen Then
Command1.Enabled = False
Command2.Enabled = True
Option1.Enabled = False
Option2.Enabled = False
Else
Command1.Enabled = True
Command2.Enabled = False
Option1.Enabled = True
Option2.Enabled = True
End If
End Sub
本文档为【[计算机]VB代码 连接SQL数据库】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483