烟花三月 古筝谱:VB如何连接数据库？

使用ADODC数据控件,它与数据库连接方式很多,并支持SQL结构化查询语言,能实现动态查询.但用控件也要写一些代码,以达到应用程序的目的.
数据库用VB6编程语言，对新手而言，如何用好ADODC控件和DATAGRID控件相当重要。具体做法：
新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中根据数据库结构如*.MDB数据库则选MICROSOFT jet 4.0 OLE DB Provider或其它连接引擎,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。
SQL查询语言主要结构为：
Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]
查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。
SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT * FROM TabelName"作调试，无问题，用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1孔件，再添加ADODC1控件再添其他内容。
下给出一段数据连接代码:
Private Sub Form_Load()
Text1 = ""
With Adodc1
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select name from b1 order by name"
Adodc1.Refresh
DataGrid1.Refresh
End With
End Sub
SQL查询语言多写多用

1.通过ADODC数据控件的connectionstring属性,选使用连接字符串,生成,如果是ACCESS2000(最好装下VB-SP6)就选JET4.0,然后下一步选表,测试下连接就OK了.
2.如果是DATAGRID这样的控件,只要在datasource属性中选adodc1,然后运行就可以可以通过绑定控件浏览数据了
一般的文本框要逐选datasource和datafield(绑定的字段)
用data1数据控件也可以

选添加ADODB控件
Function o_Connection() As ADODB.Connection
Dim Conn
Dim AuthConnectionString As String
Set Conn = CreateObject("ADODB.Connection")
AuthConnectionString = "DBQ=" & App.Path & "\don.mdb;Driver={Microsoft Access Driver (*.mdb)};"
Conn.Open AuthConnectionString
Set o_Connection = Conn
End Function

Function rs_hs(sql As String, Conn As ADODB.Connection) As ADODB.Recordset

If InStr(UCase(sql), "INSERT") > 0 Or InStr(UCase(sql), "DROP") > 0 Or InStr(UCase(sql), "DELETE") > 0 Or InStr(UCase(sql), "CREATE") Then
Conn.Execute sql
Else
Dim rs1 As New ADODB.Recordset
rs1.Open sql, Conn, 3, 3
End If
Set rs_hs1 = rs1
End Function
这是我写的一套数据库打开函数可直接用
至于SQL只要将
"DBQ=don.mdb;Driver={Microsoft Access Driver (*.mdb)};"
改为"Provider=Sqloledb; User ID=sa; Password=; Initial Catalog = abcd; Data Source=(local)"
就OK了