vb怎么连接数据库(VB编写程序实现数据库导入操作指南)
一、vb如何连接sql数据库
一、配置ODBC数据源
1、在控制面板中，双击管理工具，然后打开ODBC数据源管理器。
2、在“系统DSN”选项卡中，单击“添加”按钮，打开“创建新数据源”对话框，在“名称”列表框中选择“SQL Server”。选好单击完成
3、在打开“建立新的数据源到SQL Server”对话框，在“名称”文本框输入新数据源的名称，描述数据源按你理解的方式来写(随意)。“服务器”就选择你要连接到的服务器。
4、选择使用用户输入登录的ID和密码的SQL验证
。选连接SQL默认设置
5、再下一步下一步，完成。测试数据源看连接是否成功就行了。成功后按确定。
二、VB中设置连接
1、添加部件Mircrosoft ADO Data Control 6.0(OLEDB),把部件拖到窗体。
2、对ADO部件点右键选属性，选择使用连接字符串，按生成。
3、选择Mircosoft OLE DB Providar for SQL Server
按下一步
4、
1、输入服务器名称
2、使用指定的服务器信息
3、在服务器上选择数据库
这时就选择你在SQL Server建好的数据库就行了
5、测试连接可以看到连接是否成功！
二、vb怎么连接数据库写入数据
'在使用前需要先安装MySql的驱动，进行正确配置
'注意：必须给出正确的服务器名、数据库名、表名、数据库连接的用户名、密码
Option Explicit
Dim Cnn As ADODB.Connection'定义ADO连接对象
Dim Records As ADODB.Recordset'定义ADO记录集对象
'连接到数据库
Function CnnOpen(ByVal ServerName As String, ByVal DBName As String, ByVal TblName As String, ByVal User As String, ByVal PWD As String)'服务器名或IP、数据库名、登录用户、密码
Dim CnnStr As String'定义连接字符串
Set Cnn= CreateObject("ADODB.Connection")'创建ADO连接对象
Cnn.CommandTimeout= 15'设置超时时间
CnnStr="DRIVER={MySql ODBC 5.1 Driver};SERVER="& ServerName&";Database="& DBName&";Uid="& User&";Pwd="& PWD&";Stmt=set names GBK"'
Cnn.ConnectionString= CnnStr
Cnn.Open
End Function
'关闭连接
Function CnnClose()
If Cnn.State= 1 Then
Cnn.Close
End If
End Function
'把Excel写入MySql中的数据库
Function InsertToMySql(ByVal SheetName As String, ByVal TblName As String)
Dim SqlStr As String
Dim i, j As Integer
Dim Columns, Rows As Integer
Columns= VBAProject.func_public.GetTotalColumns(SheetName)
Rows= VBAProject.func_public.GetTotalRows(SheetName)
Set Records= CreateObject("ADODB.recordset")
'取得结果集并插入数据到数据库
Set Records= CreateObject("ADODB.Recordset")
'以下语句提供了插入思路，我只是把单条记录的插入方式改为循环，以把所有的记录添加到表中
'rs.Open"insert into newtable values('"& ActiveSheet.Cells(i, 1).Value&"',"&"'"& ActiveSheet.Cells(i, 2).Value&"')", cnn, 0
For i= 2 To Rows
SqlStr="INSERT INTO"& TblName&" values('"& Sheets(SheetName).Cells(i, 1).Value&"'"'注意：" values('"，字母“v”之前是有空格的！！！
For j= 2 To Columns
SqlStr= SqlStr&",'"& Sheets(SheetName).Cells(i, j).Value&"'"
Next
SqlStr= SqlStr&")"
Set Records= Cnn.Execute(SqlStr)'rs.Open SqlStr, cnn, 0不能用这条语句实现！！！
Next
MsgBox"Insert!", vbOKOnly,"Excel To MySql"
End Function
'清除对象
Function ClearObj()
Set Cnn= Nothing
Set Records= Nothing
End Function
三、VB怎么调用数据库数据
VB可将Sql结构化查询语句赋值Ado(ActiveX数据对象)或ADO Data控件，访问和操作数据库。
ADO(ActiveX数据对象)，这项新的数据访问技术的特性包括：更简单的对象模型；与其它 Microsoft和非 Microsoft的技术更好的集成；为本地和远程数据数据提供的通用接口；可远程访问的和断开的记录集；用户可访问的数据绑定接口；以及层次结构的记录集。
ADO Data控件，这是一种新的、OLEDB识别的数据源控件，其功能与内部的 Data控件和 Remote Data控件十分相似，通过这种方式允许用户用最少的代码来创建数据库应用程序。
Visual Basic 6.0中，已经可以将任何 ADO/OLE DB数据源绑定到任何 ADO/OLE DB数据使用者上。在运行时，可以设置控件的 DataSource属性来将控件动态地绑定到数据源。可以创建用作数据源和数据使用者的类，并且通过新的 BindingsCollection对象将这些类绑定在一起。可以创建与 ADO数据控件相似的、用作数据源的用户控件。还可以创建与 DataGrid控件相似的、复杂绑定的用户控件。
以下是经ADO(ActiveX数据对象)访问Access数据库的实例代码：
DimcnnAsNewConnection
DimrsAsNewRecordset
DimsqlAsString
DimARR
cnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\wdOld.mdb;PersistSecurityInfo=False"
sql="select故障名称fromguzhang_bm"
rs.Opensql,cnn
Combo1.Text="故障名称"
DoWhileNotrs.EOF
Combo1.AddItemrs("故障名称")
rs.MoveNext'打开表
Loop
rs.Close
cnn.Close
以下是使用ADO Data控件访问Access数据库德实例代码：
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\wd.mdb;PersistSecurityInfo=False"
Adodc1.RecordSource="select*fromjishijilu"'whereshijianlike'%8112%'Andgyh_riqilike'%10%'"
Adodc1.Refresh
SetMSHFlexGrid1.DataSource=Adodc1
MSHFlexGrid1.Row=1
MSHFlexGrid1.ColSel=MSHFlexGrid1.Cols-1