vb连接数据库的方法（VB与各数据库的几种连接方式）

本文目录

• VB与各数据库的几种连接方式
• VB如何连接网络数据库
• vb是如何连接不同数据库的
• VB如何连接数据库

VB与各数据库的几种连接方式

－、用DAO控件连接数据库1.与Access2000数据库连接Private Sub Command1_Click()’也可直接在控件属性中设置以下各项但在控件属性中不能写入密码’只有在数据数没有密码的情况下可以省略Data1.RefreshData1.Connect = “Access 2000;“Data1.DatabaseName = App. Path + “/chncmadb.mdb“’数据库没有密码此句可省Data1.Connect = “;pwd=123456“’Data1.RecordSource = “耕地资源管理单元属性数据表2004“ Data1.RecordSource = “select * from耕地资源管理单元属性数据表2004“Data1.Refresh’move后才能正确显示记录个数End Sub2.与没有密码的DBF文件数据库连接Private Sub Command2_Click()Data1.Connect = “dBASE III;“Data1.DatabaseName = App. Path’ Data1.RecordSource =“DBF“Data1.RecordSource = “select * from dbf“Data1.Refresh’move后才能正确显示记录个数End Sub3.与没有密码的Excel文件数据库连接Private Sub Command3_Click()Data1.Connect = “Excel 8.0;“Data1.DatabaseName = App.Path & “/EXcel.xls“Data1.RecordSource = “select * from “, AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText Set DataGrid1.DataSource = AdoRs Set AdoRs = Nothing Set AdoCnn = NothingEnd Sub 4.’ADO代码与Oracle数据库连接Private Sub Command4_Click() Dim AdoCnn As ADODB.Connection Dim AdoRs As ADODB.Recordset Set AdoCnn = New ADODB.Connection Set AdoRs = New ADODB.Recordset AdoCnn.CursorLocation = adUseClient ’.open后面的字符串可以参考ADO控件连接.ConnectionString后面的的字符串 AdoCnn.Open “Provider=OraOLEDB.Oracle.1;Password=chncmadb;Persist Security Info=True;User ID=chncmadb;Data Source=towebserver“AdoRs.Open “select * from T320481TR012004“, AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText Set DataGrid1.DataSource = AdoRs Set AdoRs = Nothing Set AdoCnn = NothingEnd Sub 5.’ADO代码与SQLserver数据库连接’未测试Private Sub Command5_Click() Dim AdoCnn As ADODB.Connection Dim AdoRs As ADODB.Recordset Set AdoCnn = New ADODB.Connection Set AdoRs = New ADODB.Recordset AdoCnn.CursorLocation = adUseClient ’.open后面的字符串可以参考ADO控件连接.ConnectionString后面的的字符串 AdoCnn.Open “Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;User ID=111;Initial Catalog=111;Data Source=111“AdoRs.Open “select * from T320481TR012004“, AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText Set DataGrid1.DataSource = AdoRs Set AdoRs = Nothing Set AdoCnn = NothingEnd Sub

VB如何连接网络数据库

在工程里找到Microsoft ADO Data Control控件,拖到窗体上,事件中这么写:Private Sub Coammand1_Click()Adodc1.connectionstring=“Driver={SQL Server};Server=服务器IP;Uid=用户名;Pwd=密码;DataBse=数据库名“Adodc1.RecordSource=“SELECT * FROM 表名 WHERE 条件“Adodc1.RefrshEnd Sub要进行数据操作就这样引用:Adodc1.RecordSet.Fields(“字段名“)这就是操作数据字段把Adodc1绑定到数据控件那就是绑定数据源

vb是如何连接不同数据库的

来，follow me！1、新建一个文本文件2、将扩展名TXT修改成UDL，看，文件的图标发生了变化。3、双击这个文件，打开后，“提供程序”里面提供了连接各种数据库的方案。如果是access数据库，选择 JET4.0的那个就行。如果是sqlserver或oracle，选择响应的就可以。4、在“连接”选项卡，选择相应的配制，再输入用户名和密码，点击“测试连接”，如果成功，就OK了。点“确定”。5、在这个文件上右键选择用记事本打开，看到了吧，这个就是连接用的字符串。有了连接字符串，你应该会连接数据库了吧？以后你自己熟悉了，可以不用这个方法，直接自己写连接字符串。什么？还不会，看下面。strDB=“这里写上你得到的连接用字符串“Dim ConnSet Conn=server.CreateObject (“adodb.connection“)Conn.Open strDBConn 就是连接数据库的类，你可以通过它来打开数据集，进行数据操作。

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查询语言多写多用