vbnet连接sql数据库实例（请各位大侠给出用VB.NET连接oracle数据库并执行sql查询语句的代码示例，谢谢！！）

本文目录

• 请各位大侠给出用VB.NET连接oracle数据库并执行sql查询语句的代码示例，谢谢！！
• vb.net 连接sql数据库
• vb.net 与数据库的连接（pl/sql）
• vb.net连接sql数据库
• vb.net2015连接数据库SQL2012代码
• vb.net连接数据库
• vb.net 连接sql数据库模块,如何使用

请各位大侠给出用VB.NET连接oracle数据库并执行sql查询语句的代码示例，谢谢！！

Dim OraSession As Object ’会话对象
Dim OraDatabase As Object ’数据库对象
Dim OraDynaset As Object’动态集对象
Dim OraDatabase As Object’字段集对象
Set OraSession =CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.CreateDatabase
("Demo","scott/tiger",0&)’建立数据库连接
Set OraDynaset=OraDatabase.CreateDynaset("select*from
student",0&)’初始化动态集对象
’添加记录
’Begin an AddNew
OraDynaset.DbAddNew
OraDynaset.Fields("ID").value="1000"
’ID为列名
OraDynaset.DbUpdate’更新数据到表
’删除
OraDynaset.DbDelete
’修改
OraDynaset.DbEdit
OraDynaset.Fields("ID").value="101210"
OraDynaset.DbUpdate

vb.net 连接sql数据库

Imports System.Data
Imports System.Data.OleDb
Module Module1
Public Function MdbMytab(ByVal str_select As String) As DataTable
Dim conn_mdb As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=mdb.mdb")
Dim cmd As New OleDbCommand(str_select, conn_mdb)
Dim da As New OleDbDataAdapter(cmd)
Dim mytb As DataSet = New DataSet
da.Fill(mytb, 0)
MdbMytab = mytb.Tables(0)
conn_mdb.Close()
End Function
End Module
以上为模块代码
以下为窗体代码：
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim mytb As DataTable = MdbMytab("select * from 表1")
DataGridView1.DataSource = mytb
ComboBox1.DisplayMember = "姓名"
ComboBox1.DataSource = mytb
End Sub
End Class

vb.net 与数据库的连接（pl/sql）

Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DBSet As DataSet
Dim ErrMsg As String
Dim cnn As SqlClient.SqlConnection
Dim cmd As New SqlClient.SqlCommand()
Dim adpt As SqlClient.SqlDataAdapter
Dim rst As New DataSet()
Dim sSQL As String
ErrMsg = ""
Try
cnn = New SqlClient.SqlConnection("data source=(local);initial catalog=urp;user id=sa;pwd=1234")
sSQL = "select * from employee"
adpt = New SqlClient.SqlDataAdapter(sSQL, cnn)
adpt.Fill(rst)
DBSet = rst
DataGridView1.DataSource = DBSet
Catch ex As Exception
ErrMsg = ex.Message
Finally
rst = Nothing
cnn = Nothing
End Try
End Sub
End Class

vb.net连接sql数据库

您好：给你个Sql Servers 2000的链接方法参考一下。
Public Shared connectionString As String = “Data Source=SERVERS;Initial Catalog=HL;User ID=sa;Password=pw" providerName="System.Data.SqlClient”
’《summary》
’执行SQL语句，返回影响的记录数
’《/summary》
’《param name="SQLString"》SQL语句《/param》
’《returns》影响的记录数《/returns》
Public Shared Function ExecuteSql(ByVal SQLString As String) As Integer
Using connection As New SqlConnection(connectionString)
Using cmd As New SqlCommand(SQLString, connection)
Try
connection.Open()
Dim rows As Integer = cmd.ExecuteNonQuery()
Return rows
Catch e As System.Data.SqlClient.SqlException
connection.Close()
Throw e
End Try
End Using
End Using
End Function
希望对您有用！

vb.net2015连接数据库SQL2012代码

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的效率最慢。

vb.net连接数据库

解决思路：
1. 字义连接字符串；
Public SqlConn As String = "data source=127.0.0.1;initial catalog=textbox1.text.trim;user id=sa;pwd=这里是数据库登陆密码;"
2. 字义连接模块（以下是一个通用的SQL连接模块适当的做了一些修改，可直接使用）
Public Function ExecuteSql(ByVal strSQL As String, ByRef errMsg As String,SqlConn as string) As System.Data.DataTable
Dim cnn As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection(SqlConn)
Dim cmd As New System.Data.SqlClient.SqlCommand()
Dim adpt As System.Data.SqlClient.SqlDataAdapter
Dim rst As New System.Data.DataSet()
Dim SplitSQL() As String
errMsg = ""
Try
SplitSQL = Split(strSQL)
If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) And InStr(strSQL, "SCOPE_IDENTITY") = 0 Then
cmd.Connection = cnn
cmd.Connection.Open()
cmd.CommandText = strSQL
cmd.ExecuteNonQuery()
ExecuteSql = Nothing
Else
adpt = New System.Data.SqlClient.SqlDataAdapter(strSQL, cnn)
adpt.Fill(rst)
ExecuteSql = rst.Tables(0)
End If
Catch ex As Exception
errMsg = ex.Message
ExecuteSql = Nothing
Finally
rst = Nothing
cnn.Dispose()
End Try
End Function

3. 调用办法
假定网页有一个textbox1用来输入数据库名称，一个BUTTON用于连接数据库，则在button.click事件中设置以下代码：
dim txtsql as string=你的SQL语句
dim errormsg as string=""
sqlconn=
"data source=127.0.0.1;initial catalog=textbox1.text.trim;user id=sa;pwd=这里是数据库登陆密码;"
dim dt as datatable=executesql(txtsql,errormsg,sqlconn)
-----------------
至于你的语句要执行什么操作就自己写了

vb.net 连接sql数据库模块,如何使用

比如有个asp.net(vb.net)连接sql server 2000数据库的连接模块(module)：
Module MdlCommon
Public txtSQL As String ’存放SQL语句
Public DBSet As DataSet ’查询得到的记录集
Public ErrorMsg As String ’存放错误信息
Public Function ExecuteSQL(ByVal strSQL As String, ByRef errMsg As String) As DataSet
Dim cnn As SqlClient.SqlConnection
Dim cmd As New SqlClient.SqlCommand()
Dim adpt As SqlClient.SqlDataAdapter
Dim rst As New DataSet()
Dim SplitSQL() As String
errMsg = ""
Try
SplitSQL = Split(strSQL)
cnn = New SqlClient.SqlConnection("data source=(local);initial catalog=urp;user id=sa;pwd=1234")
If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) Then
cmd.Connection = cnn
cmd.Connection.Open()
cmd.CommandText = strSQL
cmd.ExecuteNonQuery()
Else
adpt = New SqlClient.SqlDataAdapter(strSQL, cnn)
adpt.Fill(rst)
ExecuteSQL = rst
End If
Catch ex As Exception
errMsg = ex.Message
Finally
rst = Nothing
cnn = Nothing
End Try
End Function End Module
调用时在asp.net后台写上txtSQL="SELECT * FROM user";
DBSet=ExecuteSQL(txtSQL,ErrorMsg)就可以查询db返回结果了。