大家好!今天让小编来大家介绍下关于dodb需要引用什么控件的问题,以下是小编对此问题的归纳整理,让我们一起来看看吧。
文章目录列表:
本文目录adodb需要引用什么控件adodb需要引用什么控件ADODB访问数据库的一种方式,引用ADODB就可以用它访问数据库如一段访问SQL数据库的方式:Dim ConnString As String = "Provider=SQLOLEDB;Data Source=" & DataSource & ";Persist Security Info=True;Password=" & Password & ";User ID=" & UserID & ";Initial Catalog=" & InitialCatalog Conn.Open(ConnString) ’连接数据库 Dim FindU = "select * from Mo_DrawXY where GateCount like ’" & CStr(Form3.LstVew_Nozle.Items.Count) & "%’ and addTime 》 ’" & CStr(DateTimePicker.Value) & "’" ’SQL语句 Rs.Open(FindU, Conn.ConnectionString, 2, 3) ’连接数据表 ’Mo_DrawXY If Rs.EOF = False Then Rs.MoveFirst() Do While Rs.EOF = False ’修改记录 Dim EqtTF As Boolean = False ’默认不是相等的 Dim sqlxObj As Object = (Rs.Fields("Mo_GateX").Value) Rs.MoveNext() Loop End If Rs.Close() Conn.Close()。
本文目录
adodb需要引用什么控件
ADODB访问数据库的一种方式,引用ADODB就可以用它访问数据库
如一段访问SQL数据库的方式:
Dim ConnString As String = "Provider=SQLOLEDB;Data Source=" & DataSource & ";Persist Security Info=True;Password=" & Password & ";User ID=" & UserID & ";Initial Catalog=" & InitialCatalog Conn.Open(ConnString) ’连接数据库 Dim FindU = "select * from Mo_DrawXY where GateCount like ’" & CStr(Form3.LstVew_Nozle.Items.Count) & "%’ and addTime 》 ’" & CStr(DateTimePicker.Value) & "’" ’SQL语句 Rs.Open(FindU, Conn.ConnectionString, 2, 3) ’连接数据表 ’Mo_DrawXY If Rs.EOF = False Then Rs.MoveFirst() Do While Rs.EOF = False ’修改记录 Dim EqtTF As Boolean = False ’默认不是相等的 Dim sqlxObj As Object = (Rs.Fields("Mo_GateX").Value) Rs.MoveNext() Loop End If Rs.Close() Conn.Close()
以上就是小编对于dodb需要引用什么控件问题和相关问题的解答了,dodb需要引用什么控件的问题希望对你有用!