vb.net与sql的链接？？

maxuefenglan 2012-07-06 02:36:33

谁能写一下vb.net与sql的链接？？具体步骤？？？

...全文

257 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

chunchengtan 2012-07-21

打赏
举报

怎么我都看不懂

music_0000 2012-07-20

打赏
举报

Linq To SQL层次清楚

beilei123456 2012-07-20

打赏
举报

VB.NET连接数据库主要有这几种方式：sql server.net data provider,OLE DB.NET data provider,ODBC.NET data provider。我用的是sql server.net的方式，很方便，参考下面的这个网址，介绍的很详细。
http://hi.baidu.com/bigheadsheep/item/beb319196adc7e11e3f98650

zbfeyan 2012-07-14

打赏
举报

Dim m_Connection As New OleDb.OleDbConnection("data source=192.168.125.557\SQLEXPRESS;initial catalog=数据库名;user id=Ａdmin;pwd=pwd;provider=sqloledb")

tj27754060 2012-07-13

打赏
举报

给你个新手能超的代码，是vb.net2010吗？是的话拷贝走就能用
Dim dbConnection = New SqlClient.SqlConnection("Data Source=192.168.0.134;Initial Catalog=crm;Persist Security Info=True;User ID=sa;Password=112221")
'定义一个dbconnection变量为一个到数据库的连接，请自行修改Data Source=，User ID=，Password=
Dim cmdSQL = New SqlClient.SqlCommand("check_login", dbConnection)
'定义一个cmdSQL变量为命令，参数1是存储过程名，参数2是数据库的连接
cmdSQL.CommandType = CommandType.StoredProcedure
'设置cmdSQL的命令类型设置为存储过程
cmdSQL.Parameters.Add("@usr", SqlDbType.VarChar, 50)
'给cmdSQL添加一个参数@user，设置类型为varchar，50个字符
cmdSQL.Parameters("@usr").Value = Me.ComboBox_username.SelectedItem.ToString
'给cmdSQL的@user参数赋值，值为ComboBox_username控件中当前选择的值
cmdSQL.Parameters.Add("@pass", SqlDbType.VarChar, 50)
'给cmdSQL添加一个参数@pass，设置类型为varchar，50个字符
cmdSQL.Parameters("@pass").Value = Me.TextBox_pwd.Text
'给cmdSQL的@pass参数赋值，值为textBox_pwd控件中当前输入的值
cmdSQL.Parameters.Add("@qx", SqlDbType.Int, 4)
cmdSQL.Parameters("@qx").Direction = ParameterDirection.Output
cmdSQL.Parameters.Add("@yn", SqlDbType.Int, 4)
'给cmdSQL添加一个参数@yn，设置类型为int，4个字符
cmdSQL.Parameters("@yn").Direction = ParameterDirection.Output
'设置cmdsql的@yn参数属性为接收存储过程返回的return值
dbConnection.Open()
'打开数据连接
cmdSQL.ExecuteNonQuery()
'执行存储过程
dbConnection.Close()
'关闭数据连接

以上是定义数据库连接，打开数据库连接，关闭数据库连接。中间有存储过程的调用方式。、
建议你把问题再说的详细点，vb.net2010的话，数据和控件的绑定是可以可视化操作的。比如让一个combobox控件，以下来菜单让你选择的方式显示数据库中某个表的某个列。
不知道你想问的是哪个。

hzybc 2012-07-13

打赏
举报

http://www.connectionstrings.com/

青岛小帅锅 2012-07-08

打赏
举报

上面的都回了基本的连接语句。但是新手如果超了你们的代码肯定还是错误的。。。
因为连接SQL 首先引入 SQL.Client空间。
下面就是典型的例子。

Imports System.Data.SqlClient
Public Class Form1
'声明Connection，DataAdapter和DataSet对象。
Dim Conn As SqlConnection
Dim da As SqlDataAdapter
Dim ds As DataSet
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
'连接到本地SQL Server数据库Master
Conn = New SqlConnection("Data Source=(local);Initial Catalog=master;" & _
"Integrated Security=false;User ID=sa;Password=sa123")
'执行select语句查询数据库
da = New SqlDataAdapter(TextBox1.Text, Conn)
'实例化DataSet对象
ds = New DataSet()
'将da中的数据放到DataSet中，并起一个别名mytable，这个别名任意起
da.Fill(ds, "mytable")
'设置DataGridView数据源。用DataGridView显示数据库表内容
DataGridView1.DataSource = ds.Tables("mytable")
Catch
MessageBox.Show("输入的SQL语句有误或者SQL Server数据不通！")
End Try
End Sub
End Class

无涯大者 2012-07-08

打赏
举报



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()

参考。

蝶恋花雨 2012-07-06

打赏
举报

代码] 通过 OLE DB 连接 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)

[代码] 通过 OLE DB 连接 Access
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)

[代码] 通过 OLE DB 连接 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)

[代码] 通过ODBC连接 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)

[代码] 通过ODBC连接 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)

参考http://hi.baidu.com/lhnxq/blog/item/b4f3096513bd86f8f636547e.html