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就可以


文章题目:vb.net数据库连接 vb连接mysql数据库实例
当前地址:http://scyanting.com/article/hhgidd.html