欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

用adodb控件，這個(gè)控件運行時(shí)不會(huì )顯示出來(lái)但可以引用。全稱(chēng)Microsoft ActiveX Data Objects 2.5 Library。 
連接方法是先引用。 
然后生命如下的連接對象。 
Dim con As New ADODB.Connection 
該連接對象有一個(gè)連字符串屬性息屬性 
con.ConnectionString 
而連接字符串比較長(cháng)如果不愿意寫(xiě)也可以臨時(shí)建立一個(gè)adodc的空間，用控件屬性中的生成字符串來(lái)自動(dòng)生成連接字符串。 
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\BOOK.MDB;Persist Security Info=False 
以上為mdb的連接字符串示例，也可以生成sql sever的連接信息，非常簡(jiǎn)單。建立一個(gè)adodc控件拖拽到窗體上。然后左鍵單擊adodc控件，選屬性里面最后一項就是生成連接字符串。 
連接字符串的完整設置代碼如下（注意別忘了“”和最后的；）。 
con.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\BOOK.MDB;Persist Security Info=False;" 
利用con.Open的方法打開(kāi)數據庫。 
con.ConnectionTimeout設置數據庫連接超時(shí)時(shí)間多長(cháng)時(shí)間隨意（不設置的化程序會(huì )永遠嘗試連接數據庫，而導致死循環(huán)）。 
con.State驗證數據庫是否連接成功這個(gè)返回布爾值真（true）和假（false）。 
con.Execute（"T-SQL語(yǔ)句"），此方法用于執行SQL語(yǔ)句返回結果可以附值給其它的變量或給文本框直接顯示。 
以上是連接數據庫的方法。 

 
 

 

 

 

 Imports System.Data.OleDb
'引入ADO.NET操作命名空間
Module Module1
    Public ADOcmd As OleDbDataAdapter
    Public ds As DataSet = New DataSet()
    '建立DataSet對象
    Public mytable As DataTable
    '建立表單對象
    Public myrow As DataRow
    '建立數據行對象
    Public rownumber As Integer
    '定義一個(gè)整型變量來(lái)存放當前行數
    Public SearchSQL As String
    Public cmd As OleDbCommandBuilder      Public Function Testtxt(ByVal txt As String) As Boolean
        '判斷字符串是否為空
        If Trim(txt) = "" Then
            Testtxt = False
        Else
            Testtxt = True
        End If
    End Function      Public Function ExecuteSQL(ByVal SQL As String, ByVal table As String)
        Try
            '建立ADODataSetCommand對象
            '數據庫查詢(xún)函數
            Dim constr As String
            constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
            constr = constr
 

From: IT技術(shù)論壇(http://bbs.itjsj.com/)
Link：http://bbs.itjsj.com/thread-151468-1-1.html