189 8069 5689
1·绑定数据源来进行连接
创新互联建站是一家专注于做网站、成都网站制作与策划设计,兴隆台网站建设哪家好?创新互联建站做网站,专注于网站建设10余年,网设计领域的专业建站公司;建站业务涵盖:兴隆台等地区。兴隆台做网站价格咨询:18982081108
2.用代码连接
先到数据库建立一个数据库和相应的表
连接数据库的代码：
Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="
dim conn As SqlClient.SqlConnection
try
conn = New SqlClient.SqlConnection
conn.ConnectionString = str
conn.Open()
Return True
Catch ex As Exception
MsgBox(ex.ToString)
Return False
End Try
登录代码：Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="
dim conn As SqlClient.SqlConnection
conn = New SqlClient.SqlConnection
conn.ConnectionString = str
conn.Open()
sqlstr = "Select * From Amd Where AmdName='" TextBox1.Text "' And AmdPwd = '" TextBox2.Text "'"
Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)
Dim dr As SqlClient.SqlDataReader
dr = sqlcmd.ExecuteReader
If dr.Read = True Then '判断一条记录为真
kf.Show() '显示下个窗体
Me.Hide() ’隐藏当前窗体
Else
MessageBox.Show("输入信息有误！", "提示")
TextBox1.Text = ""
TextBox2.Text = ""
End If
"provider=msdasql;DRIVER=Microsoft Visual FoxPro Driver;UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;SourceDB=" CurDir(FilePath)
说明：CurDir(FilePath)表示DBF文件所在的目录,如文件路径为：F:\编程模板\ckrjz.dbf,CurDir(FilePath)返回F:\编程模板,但在查询是DBF文件要去文件名后缀，如ckrjz.dbf在sql查询时，要把".DBF"去掉.如:
select * from [ckrjz]
使用ADO~~先利用数据控件oleconnection连接到数据库,即在oledbconnection的Connectstring属性输入路径,
然后使用oledbcommand并在commandtext中选择查询,再使
用oledbdataadapter选择配置数据适配器,生成dataset
注:
1 oledbcommand 主要使用SQL命令
2 oledbdataadapter相当于在本地建一个表,有什么操作可以操作完后将结果传回源表
你是不是打算象SQL里面批量插入的方法用一个INSERT语句一次性导入?那还是放弃吧。
不是说不能实现，而是这个办法实在没有多大用处，实在是屠龙之技。
举个例子吧
有A，B两个表（是不是同一个数据库并不重要），要求把A表的数据导入到B表中。
如果目标表（B表）中的各字段与源表（A表）相应字段的类型结构和要求都相同，那么一次性导入显然是个很好的办法，但如果真的这样的话，还用得着去导吗？
实际工作中,你碰到的情况往往是这样的
B表中经常有些约束条件,比如某个字段或键要求是唯一的,而A表却无此约束。
比如B表某个字段要求该字段不能为空，而A表允许
比如B表某个字段要求该字段必须符合一定的数据格式，而A表不满足。
比如B表某个字段的最大字长低于A表某个记录的实际字长。
比如B表有索引，而A表没有。
等等等等
如果碰到这些情况，显然是不可能成功导入的。
这是经常会碰到的。
唯一的办法，只能一条条地导入。
我也是后来才明白这个理的。
下面我们来看看如何一条条地导入的
方法不只一种，我是用ADO对象来实现的。
用两个CONNECTION对象分别建立到源数据库和目标数据库的连接
建立一个记录集，使用OPEN的方法从源表得到满足要求的数据记录
将记录指针移至首条
对记录的每一个字段进行检查，如果不满足目标表的约束条件，必须修改该字段，使之合法。
使用CONNECTION对象的EXECUTE方法将修正后的数据插入到目标表
同法处理下一条数据直至最后一条。
1、 用The SQL Server .NET Data Provider连接数据库
The SQL Server .NET Data Provider是利用SqlConnection类来连接SQL Server7.0或更高版本的数据库，
SqlConnection类位于名称空间System.Data.SqlClient下。
连接代码：
Dim sqlConnection1 As SqlClient.SqlConnection
Dim strConnect As String=”data source=服务器名;initial catalog=数据库名;user id=sa;password=;”
sqlConnection1=New System.Data.SqlClient.SqlConnection(strConnect)
sqlConnection1.open ‘打开数据库
sqlConnection1.close ‘关闭连接，释放资源
2、 用The OLE DB .NET Data Provider连接数据库
上面已经说过，利用The OLE DB .NET Data Provider可以访问Access、Oracle和SQL Server等种数据
库，那么，它是怎样访问这些数据库的呢？The OLE DB .NET Data Provider是通过位于名称空间Sy
stem.Data.OleDb类库下的OleDbConnection类来连接这三种不同类型的数据库的。下面举例说明:
1)连接SQL Server数据库
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=”Provider=SQLOLEDB;Persist Security Info=False;Data Source=服务器名;Initial Catalog=数据库名;User ID=sa;Password=;”
oleDbConnection1=New System.Data.OleDb.OleDbConnection(strConnect)
2)连接Access数据库
假设要连接的Access数据库名为“Example.mdb”，存放在d:\Data\目录下。
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Data\ Example.mdb”
oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)
3)连接Oracle数据库
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=”Provider=MSDAORA;Data Source=服务器名;User ID=用户ID;Password=密码;”
oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)
3、 用The ODBC .NET Data Provider连接数据库
The ODBC .NET Data Provider连接数据库是通过OdbcConnection类来实现的，这个类位于名称空间
Microsoft.Data.Odbc下，而名称空间Microsoft.Data.Odbc是封装在Microsoft.Data.Odbc.dll文件下的。
由于篇幅有限，这里就只介绍连接Sql Server和Oracle数据库的方法，其他数据库的连接方法基本类
似，我就不再多讲了。
1)连接Sql Server数据库
Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection
Dim strConnect As Sting=”Driver={SQL Server};Server=服务器名;Uid=sa;pwd=;Database= 数据库名;”
odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)
2)连接Oracle数据库
Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection
Dim strConnect As Sting=”Driver={Microsoft ODBC for Oracle};Server=服务器名;Uid=sa;pwd=;”
odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)
四、总结
通过本文的介绍，读者基本掌握了在Visual Basic.NET中用ADO.NET和ODBC.NET连接各种数据库的方法
。以上三种驱动针对不同的数据库，它们的性能方面也有很大的不同：The SQL Server .NET Data Provider
的效率最高；The OLE DB .NET Data Provider的效率比较底；The ODBC .NET Data Provider的效率最慢。
具体连接哪一种数据库选用哪一种数据驱动要从工作效率方面来考虑。
以上回答你满意么？
两个数据库连接，一个读DBF，一个写ACCESS。怎么读写这两种数据库，到网上下个例子就OK了。