vb与sql数据库

❶ vb如何连接SQL数据库

具体方法和代码如下：

set conn=server.createobject("adodb.connection")
变量名="driver=sql server;server=IP地址;database=数据库名;uid=用户名;pwd=密码"
conn.open 变量名

"conn"是你设置的对象名
"变量名" 为自定义
"IP地址" 你计算机的IP
"数据库名" 你数据库的名称
"用户名"和"密码" sql server安装时的设置，如果你安装时用的是windows身份验证，那么你就要新建一个用户， 新建用户在企业管理器里面。
如果安装时用的是sql server身份验证，那么它的默认用户名为"sa" 密码有空，就是没有密码的意思。
如果你不知道你安装时用的是 windows身份验证
还是 sql server身份验证 那么你可以打开查询分析器，在那里可以看见

❷ 如何将VB和SQL数据库进行连接

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）
填上的服务器名
和数据库名
用户名
和密码
后用这个语句可以进行连接

❸ vb如何连接sql数据库

VB连接SQL数据库的模块:
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addFlag As Boolean

Public Function OpenCn() As Boolean
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 25
conn.Provider = "sqloledb"
conn.Properties("data source").Value = "127.0.0.1" ''服务器的名字
conn.Properties("initial catalog").Value = "chart" ''库名
conn.Properties("integrated security").Value = "SSPI" ''登陆类型
conn.Open
OpenCn = True
addFlag = True
Exit Function
strerrmag:
mag = "Data can''t connect"
Call MsgBox(mag, vbOKCancel, "Error:Data connect")
addFlag = False
End
End Function

Public Sub clocn()
On Error Resume Next
If conn.State <> adStateClosed Then conn.Close
Set conn = Nothing
End Sub

Public Function openrs(ByVal strsql As String) As Boolean ''连接数据库记录集
Dim mag As String
Dim rpy As Boolean
On Error GoTo strerrmag
Set rs = New ADODB.Recordset
If addFlag = False Then rpy = True
With rs
.ActiveConnection = conn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strsql
End With
addFlag = True
openrs = True
Exit Function
strerrmag:
mag = "data not connect"
Call MsgBox(mag, vbOKCancel, "error:connect")
openrs = False
End
End Function
Public Sub clors()
On Error Resume Next
If rs.State <> adStateClosed Then rs.Clone
Set rs = Nothing
End Sub

❹ 在VB里怎么连接sql数据库

一、配置ODBC数据源
1、在控制面板中，双击管理工具，然后打开ODBC数据源管理器。
2、在“系统DSN”选项卡中，单击“添加”按钮，打开“创建新数据源”对话框，在“名称”列表框中选择“SQL Server”。选好单击完成
3、在打开“建立新的数据源到SQL Server”对话框，在“名称”文本框输入新数据源的名称，描述数据源按你理解的方式来写(随意)。“服务器”就选择你要连接到的服务器。
4、选择使用用户输入登录的ID和密码的SQL 验证
。选连接SQL默认设置
5、再下一步下一步，完成。测试数据源看连接是否成功就行了。成功后按确定。

二、VB中设置连接
1、添加部件Mircrosoft ADO Data Control 6.0(OLEDB),把部件拖到窗体。
2、对ADO部件点右键选属性，选择使用连接字符串，按生成。
3、选择Mircosoft OLE DB Providar for SQL Server
按下一步
4、
1、输入服务器名称
2、使用指定的服务器信息
3、在服务器上选择数据库
这时就选择你在SQL Server建好的数据库就行了
5、测试连接可以看到连接是否成功！

❺ VB怎么连接SQL Server数据库

要连接SQL数据库有两种方法用ADODC或ADO.
方法一: （ADODC)
首先须引用Projects-Components-Microsoft ADO Data Controls 6.0 (OLEDB).
之后在表单设置ADODC控件。然后Form_Load()输入以下代码：

Private Sub Form_Load()
ADODC1.ConnectionString = "Provider=SQLOLEDB;Password=密码;Persist Security Info=False;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器名"

ADODC1.CommandType = adCmdText
ADODC1.RecordSource = "select * from 表格名称"
ADODC1.Refresh
End Sub

方法二: (ADO)

'首先须引用Projects-References-Microsoft Active X Data Objects 2.0 Library.

'*注意以下两段须写在程式最上面（Gerenal一般）中。

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQL As String

'然后在Form_Load()输入以下代码：
Private Sub Form_Load()
cn.ConnectionString = "Provider=SQLOLEDB;Password=密码;Persist Security Info=False;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器名"
cn.Open

If rs.State = adStateOpen Then rs.Close
rs.CursorLocation = adUseClient
SQL = "select * from 表格名"
rs.Open Trim$(SQL), cn, adOpenKeyset, adLockPessimistic
End Sub

❻ 关于SQL和VB的一些区别

这两门课都是关于软件开发的或者说程序开发的,在计算机专业这是内
专业课,而且很重容要,sql我不知你指的是sql语言还是微软的sql server 数据库,我假设为前者,那么sql就是关于数据库开发的语言,vb是传统的程序开发语言,从这一点看,它们都是计算机开发语言,都是用来写程序的. 只是它们面对的方向不同,很久以前的程序都很小,要处理的数据也很少,一般存到文件了里就可以了,而现在的程序不象以前,现在的程序要处理的数据十分庞大,动不动就几万至几十万条,这个时候,就需要把数据分类出来,由一个专门的软件:数据库软件来管理,sql就是数据库软件里用的操作数据的语言,而vb就是开发我们通常说的程序的一们语言,与他一个层次的还有c++,java等,而sql是各个数据库管理软件都遵守的标准语言,不论是oracle,sqlserver,还是其他的,都能可以执行sql语句,只是这些数据库管理软件sql的基础上扩充了一些功能而已,

❼ 在VB程序中怎么样能与SQL数据库相连

这是用DAO 打开access数据库：
首先在 “工程－引用”选择microsoft DAO 3.6 Object Library，将数据库保存在工程所保存的文件夹内
然后代码如下：
dim db1 As Database
dim rs1 as recordset
Set db1 = OpenDatabase(App.Path & "\db1.mdb", False, False, ";Pwd=111")'假设数据库名为db1.mdb，数据库密码为111。这样db1就连接上数据库db1.mdb了。下面代码继续对数据库操作
set rs1=db1.openrecordset("select * from 表1") 'rs1 连接上表1
rs1.movefirst '移到表的第一条记录
rs1.edit
rs1("姓名")="张三"
rs1.update '这样就修改了第一条记录的姓名字段为“张三”

❽ 如何用vb语句连接SQL数据库

可以参考下边自己稍作修改即可：
Sub Main()
On Error GoTo On_error
'frmWelcome.Show
Set con = New ADODB.Connection
con.ConnectionString = ("Provider=SQLOLEDB;User ID=sa;PWD=;Initial Catalog=human;Data Source=.")
con.Open
con.CommandTimeout = 20
Load frmLogin
frmLogin.Show vbModal
Exit Sub
On_error:
If Err.Number = -2147467259 Or Err.Number = -2147217900 Then
Unload frmWelcome
MsgBox "检查到 SQL Server 未安装或软件所需数据库未安装..." & vbCrLf & "正在进一步检查 SQL Server 的安装情况,若已启动则开始安装数据库... ", vbInformation + vbOKOnly, "系统提示"
Shell (App.Path & "\Installdb.exe")
End
Else
MsgBox Err.Number & Err.Description, vbInformation + vbOKOnly, "系统提示"
End
End If
End Sub

❾ VB如何连接SQL数据库

一个用VB连接SQL数据库连接的模块2007年01月22日 星期一 下午 05:29下面是一个连接数据库的模块，大家可以使用它来连接SQL数据库，使用起来比ADO控件还简单：
代码如下：
Public rsNew As ADODB.Recordset
Public CnNew As ADODB.Connection
Public addFlag As Boolean
'连接数据库
Public Function OpenCn() As Boolean
Dim Mag As String
On Error GoTo strErrMag
Set CnNew = New ADODB.Connection
CnNew.ConnectionTimeout = 25
CnNew.Provider = "sqloledb"
CnNew.Properties("data source").value = "" 'SQL服务器的名
CnNew.Properties("initial catalog").value = "pubs"'库名
CnNew.Properties("integrated security").value = "SSPI"'登陆类型
'con.Properties("user id").value = "sa"
'con.Properties("password").value = "wwww"

CnNew.Open
OpenCn = True
addFlag = True
Exit Function
strErrMag:
Mag = "数据库末连接"
Call MsgBox(Mag, vbOKCancel, "错误:数据库连接")
addFlag = False
End
End Function
Public Sub Clocn()
'闭关数据库
On Error Resume Next
If CnNew.State <> adStateClosed Then CnNew.Close
Set CnNew = Nothing
End Sub
Public Function OpenRs(ByVal strSql As String) As Boolean
'连接数据库记录集
Dim Mag As String
Dim rpy As Boolean
On Error GoTo strErrMag
Set rsNew = New ADODB.Recordset
If addFlag = False Then rpy = OpenCn
With rsNew
.ActiveConnection = CnNew
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strSql
End With
addFlag = True
OpenRs = True
Exit Function
strErrMag:
Mag = "数据库数据集末连接"
Call MsgBox(Mag, vbOKOnly, "错误:数据库连接")
OpenRs = False
End
End Function
Public Sub cloRs()
'闭关数据集
On Error Resume Next
If rsNew.State <> adStateClosed Then rsNew.Close
Set rsNew = Nothing
End Sub

只要在你的标准模块中加入该代码，你就可以使用其中的函数来连接数据源了。

❿ vb如何连接sql数据库

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