欢迎来到天天文库
浏览记录
ID:25178133
大小:66.68 KB
页数:3页
时间:2018-11-18
《[计算机]vb代码连接sql数据库》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、VB代码连接SQL数据库PrivateSubCommand1_Click()IfOption1.Value=TrueThenDb.ConnectionString="Provider=SQLOLEDB.1;Password="&Text4.Text&";PersistSecurityInfo=True;UserID="&Text3.Text&";InitialCatalog="&"KJ70"&";DataSource="&Text1.TextElseDb.ConnectionString="Provider=SQLOLEDB.1;Password="&Text4
2、.Text&";PersistSecurityInfo=True;UserID="&Text3.Text&";InitialCatalog="&"KJ70"&";DataSource="&Text2.TextEndIfDb.OpenIfDb.State=adStateOpenThenIfOption1.Value=TrueThenConnected_Zhuji=True'主机连接标志ElseConnected_Zhuji=False'主机连接标志Form1.Combo_GasLoad_Place.Enabled=FalseForm1.Combo_GasLoad_
3、Place_2.Enabled=FalseEndIfCommand1.Enabled=FalseCommand2.Enabled=TrueOption1.Enabled=FalseOption2.Enabled=FalseDevece_Name'载入KJ70中的传感器模拟量类型名IfConnected_ZhujiThenGas_Load_Place'载入瓦斯涌出量数据库中的瓦斯传感器位置EndIfEndIfEndSubPrivateSubDevece_Name()DimiAsIntegeri=0Rs.Open"SELECTDISTINCT设备名1From设备WH
4、ERE(firstFrequencyUp<>0)",Db,adOpenForwardOnly,adLockReadOnlyDoWhileNotRs.EOFForm1.Combo1.List(i)=Rs(0)i=i+1Rs.MoveNextLoopRs.CloseSetRs=NothingEndSubPrivateSubCommand2_Click()Db.CloseIfDb.State=adStateClosedThenSetDb=NothingCommand1.Enabled=TrueCommand2.Enabled=FalseOption1.Enabled=
5、TrueOption2.Enabled=TrueForm1.Comd_quen.Enabled=FalseForm1.Command3.Enabled=FalseForm1.ComFrontDay.Enabled=FalseForm1.ComBehDay.Enabled=FalseForm1.Combo1.ClearForm1.Combo2.ClearForm1.Combo_GasLoad_Place.Enabled=FalseEndIfEndSubPrivateSubForm_Load()IfDb.State=adStateOpenThenCommand1.E
6、nabled=FalseCommand2.Enabled=TrueOption1.Enabled=FalseOption2.Enabled=FalseElseCommand1.Enabled=TrueCommand2.Enabled=FalseOption1.Enabled=TrueOption2.Enabled=TrueEndIfEndSub
此文档下载收益归作者所有