vb点虐 连接数据块 vb6连接数据库

vb点虐 使用模块连接数据库

你说这么一大篇全是业务逻辑,没说明你遇到的技术性问题在哪

成都创新互联于2013年创立,先为王屋等服务建站,王屋等地企业,进行企业商务咨询服务。为王屋企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

点虐 自带的config文件来配置连接字符串,比ini好N倍,如果你非要用ini那么自己解决问题

检测是否能连接用Connection.Open加try catch就可以

VB.NET连接ACCESS数据库,读取查询并显示

给你写个例子,不明白,再问!!

'引入OLEDB命令空间

Imports System.Data.OleDb

Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

'定义一个OLEDB连接并实例化它

Dim con As New OleDbConnection

'定义一个OLEDB命令并实例化他

Dim cmd As New OleDbCommand

'定义一个OLEDBReader方法来读取数据库

Dim dr As OleDbDataReader

'初始化con的连接属性,使用OLEDB模式,数据源为:你指定下路径,我的是在D盘

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\dataSample.mdb"

'打开OLEDB数据连接

con.Open()

'初始化OLEDB命令的连接属性为con,这个需要你理解下

cmd.Connection = con

'初始化OLEDB命令的语句 就是查询 什么字段从什么表 条件是ID等于你在t1中输入的内容

cmd.CommandText = "select keyss from table1 where ID=" t1.Text ""

'执行OLEDB命令以ExecuteReader()方式,并返回一个OLEDBReader,赋值给dr

dr = cmd.ExecuteReader()

'判断下dr中是否有数据。如果有就把第一个值赋值给t2的值

If dr.Read() Then

t2.Text = dr(0)

End If

'完成后关闭dr.con等释放资源

dr.Close()

con.Close()

End Sub

End Class

vb点虐 连接access数据库问题

1,使用ADO connection对象

首先,要建立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控件中使用字符串中的操作一致

vb点虐 的数据库怎么连接啊?

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)


当前文章:vb点虐 连接数据块 vb6连接数据库
转载来源:http://pwwzsj.com/article/ddegipo.html