大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
1,使用ADO connection对象
创新互联公司从2013年开始,先为库车等服务建站,库车等地企业,进行企业商务咨询服务。为库车企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
首先,要建立ADO引用,定义connection这个类,然后实例化对象。
代码完成如下:
span style="font-size:18px;"Dim objCn As New Connection, objRs As New Recordset
objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" "Data Source=" App.Path "\实例01.mdb"
objCn.Open
/span
2,使用ODBC数据源
首先,打开电脑上的ODBC数据源,建立关系。
步骤如下:
1),打开电脑上的ODBC数据源
如下图所示:
2)点击添加
3)命名
4)和数据库源建立关系
5)用代码实现连接
span style="font-size:18px;"
dim objCn As Connection
Set objCn = New Connection
objCn.Open "DSN=实例2DSN"
/span
3、ADO Data 控件创建连接
1)右击data控件,选择ADODC属性
2)从三种连接资源中选择一种。
使用data Link 文件:直接点击浏览,找到包含连接字符串的.udl文件即可
使用ODBC数据源连接,单击新建
选择用户数据库,之后的操作跟2中步骤一样。
使用连接字符串:单击生成
测试连接
4、使用数据环境设计器创建数据库连接
添加引用
右击创建连接,在右击想要连接的属性,之后的操作跟data控件中使用字符串中的操作一致
如果楼主熟悉VB6,可以直接在项目中添加ADODB的Com引用,这样你就可以像VB6那样操作数据库了!
另外
.NET
Framework中连接数据库要用到ADO.NET。如果要操作Access数据库,要用到System.Data.OleDb命名空间下的许多类。
比如按楼主所说,“我想在textbox1中显示表一中【一些数据】字段下的第一个内容”:
'首先导入命名空间
Imports
System.Data
Imports
System.Data.OleDb
'然后在某一个事件处理程序中写:
Dim
conn
As
New
OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=数据库.accdb;Jet
OLEDB:Database
Password=MyDbPassword")
Dim
command
As
New
OleDbCommand("Select
*
From
数据表",
conn)
conn.Open()
'打开数据库连接
Dim
reader
As
OleDbDataReader
=
command.ExecuteReader()
'执行SQL语句,返回OleDbDataReader
对象
Do
While
reader.Read()
'读取一条数据
textbox1.Text
+=
reader("一些数据")
VbCrLf
Loop
reader.Close()
'关闭OleDbDataReader
conn.Close()
'关闭连接
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
‘关闭连接,释放资源
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)
你说这么一大篇全是业务逻辑,没说明你遇到的技术性问题在哪
.net自带的config文件来配置连接字符串,比ini好N倍,如果你非要用ini那么自己解决问题
检测是否能连接用Connection.Open加try catch就可以
如果要程序直接连接DB2数据库,必须要有连接数据库的驱动程序,连接的代码,你可以参考如下(以前用C#写的,你改成VB.NET即可,ODBC连接对象)
public OdbcConnection Db2Conn()
{
string str = "DRIVER=IBM DB2 ODBC DRIVER;UID=db2admin;PWD=db2admin;AUTHENTICATION=SERVER;PORT=50000;HOSTNAME=192.168.100.98;PROTOCOL=TCPIP;DATABASE=YCDATA";
OdbcConnection Conn = new OdbcConnection(str);
return Conn;
}
如果你是开发桌面程序而又不想在客户端安装数据库的驱动程序,那么你可以采用web网站(含webservice)或者remoting方式,只需要在服务端安装驱动即可