vbnet连接sql方法

Ⅰ VB.NET对SQL数据库怎样连接啊求代码

VB.NET中有控件可以真接接点击属性进行连接配置.
SqlConnect数据连接控件.点击ConnectionString属性进行配置就可以了.
VB.NET中没有RecordSet了.取而代之的是DataSet.
在VB.net中可以先用SqlConnection对像来连接数据库再用SqlDataAdapter对像来读取数据并填充到DataSet里.然后就可以进行数据绑定了.
例:
dim conn as SqlConnection
dim da as SqlDataAdapter
dim ds as Dataset
set conn = new SqlConnection
conn.ConnectionString="server=serverIP;database=databasename;uid=userid;pwd=password";
conn.open
da = new SqlDataAdapter (<sql>,conn)
da.fill(ds)

Ⅱ VB.NET如何连接远程SQL数据库

一般采用命令形式
SQL_CONNECT = New SqlConnection("Server=servername;Database=MF;Uid=USERID;Pwd=PASSWORD")

Ⅲ vb.net是怎么样实现与sql的连接的

ADO.net +SQLSever（比如说你的服务器是：MYSQLSERVER,你要连的数据库是pubs）
首先引入命名空间(在public class ..之上）
imports system.data.sqlclient
⑴信任连接（不用使用用户名，密码）
Dim mycon As New SqlConnection("server=MYSQLSERVER;database=pubs;integrated security=true;")
mycon.open()
....
mycon.close()
⑵采用用户名和密码连接(假如你的数据库登陆用户名为sa,密码为：dorient)：
Dim mycon As New SqlConnection("server=MYSQLSERVER;database=pubs;uid=sa;pwd=dorient;")

Ⅳ 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 连接sql数据库模块,如何使用

比如有个asp.net(vb.net)连接sql server 2000数据库的连接模块(mole)：

Mole 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 Mole

调用时在asp.net后台写上txtSQL="SELECT * FROM user";
DBSet=ExecuteSQL(txtSQL,ErrorMsg)就可以查询db返回结果了。

Ⅵ vb.net 连接 sql server 数据库，菜鸟问题，请高手解答

说明：
da.Fill(ds)是使用da的Fill方法，把通过检索得到的数据填充到ds里，ds是一个或一组 DataTable 对象组成；
da.Fill()方法，有好几种重载，我这里介绍我常使用的两种形式；
一，就是你使用的形式
da.Fill(ds)
这里，是把通过Select语句检索的得到的数据行，添加到默认的也是唯一的DataTable里
你第一次使用da.Fill(ds)，得到了你想要得到的结果。
当你再次使用该语句da.Fill(ds)的时候，会把检索到的行添加到原来的数据行的后面。（你可以把你原来代码两次添加的结果分别用2个网格来显示，理解一下我说的）
注意：仅仅把检索到的新行的列名，与原来列名相同的数据添加，不存在的列名不添加。如果所有列名都不存在，仅添加空行。
二，为了获得不同的检索数据，采用以下两种方式解决
方法1，如果前面检索到的数据已经不需要了，那么可以；
ds.Clear() '先清空第一次检索得到的数据
da.SelectCommand.CommandText = "select * from 备注表 where 变量 = 'gsmc'"
da.Fill(ds)
方法2，如果前面检索到的数据还需要，那么可以在填充时指定表的名称
第一次检索；
da.SelectCommand.CommandText = "select * from 密码表"
da.Fill(ds,"检索1") ‘这里用"检索1"表示并保存到第一次检索的独立表里
ComboBox1.Text = ds.Tables("检索1").Rows(0).Item("用户名")
这行也可以用；
ComboBox1.Text = ds.Tables(0).Rows(0).Item("用户名")
第二次检索；
da.SelectCommand.CommandText = "select * from 备注表 where 变量 = 'gsmc'"
da.Fill(ds,"检索2") ‘这里用"检索2"表示并保存到第二次检索的独立表里
TextBox1.Text = ds.Tables("检索2").Rows(0).Item("备注")
这行也可以用；
TextBox1.Text = ds.Tables(1).Rows(0).Item("备注")

Ⅶ 请问：VB.NET怎么连接SQL

Public sqlcon As System.Data.SqlClient.SqlConnection
Public sqladapter As System.Data.SqlClient.SqlDataAdapter
Public command As System.Data.SqlClient.SqlCommand
Public ds As System.Data.DataSet
Public dr As System.Data.DataTable

sqlcon = New System.Data.SqlClient.SqlConnection
sqlcon.ConnectionString = "Server=(local); Initial Catalog=test1 ; User ID="数据库sa用户"; Password="数据库密码""
ds = New System.Data.DataSet
dr = New System.Data.DataTable(" test2 ")
ds.Tables.Add(dr)
sqladapter = New System.Data.SqlClient.SqlDataAdapter("select * from test2 ", sqlcon)
sqlcon.Open()
sqladapter.Fill(dr)
sqlcon.Close()
界面上控件
DataGridView1.DataSource = dr

Ⅷ vb.net 连接sql数据库

Imports System.Data
Imports System.Data.OleDb
Mole Mole1
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 Mole
以上为模块代码

以下为窗体代码：
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连接sql

嗯，我看了你的代码，并不是没有连上数据库，而是你的sqllj 没有进行open操作
，，你在实例化SqlConnection类后，应该再调用sqllj.open()方法来打开数据库连接，这样，你去判断sqllj.State 的时候，才准确，你都没进行打开这个动作，如何去判断他的状态是打开的！！

Ⅹ vb.net怎么连接SQL数据库

ImportsSystem.Data
ImportsSystem.Data.SqlClient

PublicClassForm1
InheritsSystem.Windows.Forms.Form
'数据库连接对象
'错误的写法
'=NewSqlConnection("server=(local);database=pubs;userid=sa;password=")
'正确写法
("DataSource=127.0.0.1;InitialCatalog=pubs;userid=sa;password=;")
'数据适配器
=NewSqlDataAdapter()
'DataSet
DimobjDataSetAsDataSet=NewDataSet()

PrivateSubForm1_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.Load
'设置查询命令属性
objDataAdapter.SelectCommand=NewSqlCommand
objDataAdapter.SelectCommand.Connection=objConnection
objDataAdapter.SelectCommand.CommandText="selectau_lname,au_fname,title,.au_id=titleauthor.au_idjointitlesontitleauthor.title_id=titles.title_idorderbyau_lname,au_fname"
objDataAdapter.SelectCommand.CommandType=CommandType.Text

'打开数据库连接
objConnection.Open()

'填充DataSet对象
objDataAdapter.Fill(objDataSet,"authors")

'关闭数据库连接
objConnection.Close()

'给DataGrid绑定数据
grdAuthorTitles.DataSource=objDataSet
grdAuthorTitles.DataMember="authors"

'清除
objDataAdapter=Nothing
objConnection=Nothing
EndSub
EndClass