vb.net数据库连接 vb连接mysql数据库实例

vb.net的数据库怎么连接啊?

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.net如何连接远程db2数据库

如果要程序直接连接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方式，只需要在服务端安装驱动即可

vb.net的数据库连接

1·绑定数据源来进行连接

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

vb.net连接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.NET怎样连接数据库

Imports System.Data

Imports System.Data.SqlClient

Module 连接数据库

Public Server1 As String

Public DataBase1 As String

Public Function GetTable(ByVal sqlstr$) As DataTable

Dim SqlConn As SqlConnection = New SqlConnection("server=" Server1 ";database=" DataBase1 ";integrated security=true") '声明这些SQL的类

Dim facDataAdapter As SqlDataAdapter = New SqlDataAdapter

Dim SqlComm As SqlCommand = New SqlCommand(sqlstr, SqlConn)

facDataAdapter.SelectCommand = SqlComm

Dim dt As DataTable = New DataTable

facDataAdapter.Fill(dt)

Return dt

End Function

End Module

vb.net 使用模块连接数据库

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

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

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