vbnet连接sql

Ⅰ 如何跨区域解决VB.NET连接sql2008服务器！

1、局域网的其他电脑是可以连接你的电脑上的sql2008的，就是用的你的电脑在局域网的主机名或IP地址（如192.168.0.101），其他跟你电脑的连接方式是没有任何差别的。
2、花生壳可以把你电脑的外网IP地址与一个固定的域名（可以是自己注册的域名，也可以是花生壳免费分配的二级或三级域名）进行绑定，然后其他地方的电脑通过这个域名就可以访问你电脑上的sql2008了。当然，你所在局域网连接外网的路由器应该把你电脑的内网IP地址以及端口号开放权限，这样路由器就会把外网的访问请求转发到你的电脑上了。
3、最好的解决办法，就是在网上购买一个sql服务器（比如阿里云、网络云、腾讯云这些“云们”提供的云数据服务器），这样全世界的任何电脑都可以连接你的数据库（当然必须知道登录信息才行）。这些业界大佬提供的服务器不管主机性能还是网络带宽以及服务的稳定性，都远远超过你用个人电脑架设的服务器。而且这样还能实现程序与数据的分离，简化程序的开发难度。你所说的用友、航天开票等几乎所有大范围使用的软件，基本上都是这样实现的。此外，还可以做成网页应用程序，这样就连软件都不需要了，直接用浏览器打开指定网页就能使用，这才是现在最流行的方式。

Ⅱ VB6.0 如何连接SQL 数据库

你在SQL SERVER中新建一个数据库，然后将这个数据库生成脚本文件，根据情况修改后转存为MASTER下的一个存储过程。至于数据库名和数据文件路径可以做成参数传入，然后在VB中用连到MASTER后执行这个存储过程。

用VB与建立的SQL数据库连接

1.使用ODBC DSN连接字符串
DSN=mySystemDSN;Uid=myUsername;Pwd=myPassword
----------------------------------------------

2.使用无ODBC DSN的连接字符串
(1)标准安全性
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName; _
Uid=myUsername;Pwd=myPassword
------------------------------------------------

(2)信任连接(分两种）
1）连接字符串1
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName;Uid=;Pwd=；
2）连接字符串2
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName;Trusted_Connection=yes
---------------------------------------------------------------------------

(3)连接本地SQL SERVER
Driver={SQL Server};Server=(local);DataBase=myDatabaseName; _
Uid=myUsername;Pwd=myPassword
-------------------------------------------------------------

(4)连接远程SQL SERVER
Driver={SQL Server};Server=xxx.xxx.xxx.xxx; _
Address=xxx.xxx.xxx.xxx,1433; _
Network=DBMMSOCN;DataBase=myDatabaseName; _
Uid=myUsername;Pwd=myPassword
-------------------------------------------------------

3.使用OLEDB PROVIDER FOR SQL SERVER的连接字符串
(1)标准安全性
Provider=SQLOLEDB.1; _
Password=myPassword; _
User ID=myUsername; _
Initial Catalog=myDatabaseName; _
Data Source=MyServerName
-------------------------------------------

(2)信任连接
Provider=SQLOLEDB.1; _
Initial Catalog=myDatabaseName; _
Data Source=MyServerName; _
Integrated Security=SSPI
--------------------------------------

(3)连接到命名实例
Provider=SQLOLEDB.1; _
Initial Catalog=myDatabaseName; _
Data Source=myServerName\myInstanceName; _
Password=myPassword; _
User ID=myUsername
--------------------------------------

(4)连接到本地SQL SERVER
Provider=SQLOLEDB.1; _
Password=myPassword; _
User ID=myUsername; _
Initial Catalog=myDatabaseName; _
Data Source=(local)
-----------------------------------------

（5）连接到远程SQL SERVER
Provider=SQLOLEDB.1; _
Netwprk Library=DBMMSOCN; _
Data Source=xxx.xxx.xxx.xxx,1433; _
Password=myPassword; _
User ID=myUsername; _
Initial Catalog=myDatabaseName;

Ⅲ 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如何连接sql数据库

1、打开代码窗口，添加引用：Imports System.Data.SqlClient。

Ⅳ 请问：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的windows窗体程序如何连接sql2008数据库，制作一个登录界面

这个问题好宽泛，简单说下步骤吧：
简单来说，直接连接需要使用SQLConnection、SQLDataAdapter、SQLCommand、Datatable四个控件，先写好连接字符串，然后建立连接，写好SQL语句，通过DataAdapter从数据库读取数据到Datatable。这样只有在SQL服务器中附加数据库才能实现访问。还可以使用DSN实现数据库连接，控件依次更换为ODBCConnection、ODBCDataAdapter、ODBCCommand、datatable、基本步骤和上面说的一样。

SQL语句就是从数据库查用户名对应的密码，将数据从数据库读取到DataTable后，与用户输入的密码比对，相符则登陆成功，否则提示错误。

过程中的细节问题欢迎追问

Ⅶ 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