vb连接sql语句
Public My_Cnn As New ADODB.Connection '连接数据库
StrCnn = "Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器名"
My_Cnn.CursorLocation = adUseClient
My_Cnn.Open StrCnn
使用数据库
Dim sql As String
Dim My_temp As New ADODB.Recordset
执行SQL语句（一般插入，删除数据）
sql = "数据库语句"
My_cnn.Execute sql
读取数据
sql = "查询语句"
My_temp.Open sql, My_cnn, adOpenDynamic, adLockOptimistic
My_temp.field("字段名")
② 怎么实现VB和SQL Server连接啊
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Private Sub Form_Load()
conn.ConnectionString = "Driver={SQL Server};SERVER=ALLEN;DATABASE=你数据库的名字;UID=sa;PWD="
conn.Open()
End Sub
===============================
以上的是连接的代码
连接以后,每次运用都要先open，记得用完以后要close
代码如下：
conn.Open("Provider=SQLOLEDB;Data Source=ALLEN;UID=sa;PWD=")
下面就是你的SQL语句，如：sql="select * from test"
最后就是要关闭：conn.close()
③ VB6.0中连接打开SQL数据库的关键性语句是什么可以举例说明一下
VB6 访问SQL 数据库一般有 ADO,DAO,ODBC 几中方式，主要根据实际情况决定采用那种方式。
如：
1、在窗体中放置data 数据控件,采用 ODBC 方式访问 SQL 数据库，可以这样设置
ConStr="ODBC;Driver={SQL Server};Server=服务器名称（本地电脑名）;
Uid=sa;Pwd=;
DataBase=数据库名;LoginTimeOut=0“
设置 Data1 连接属性
With Data1
.DatabaseName = ""
.Connect = ConStr
.RecordSource = ”Select * From 数据表“ '取得数据源的SQL语句
.Refresh
End With
这样就可以连接数据库了 。
2、在程序中利用 ADO 的方式
Dim myCon As New ADODB.Connection
Dim snRes As New ADODB.Recordset
Dim ConStr$
ConStr="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa; Password=;
Data Source =服务器名;Initial Catalog=数据库名;"
'建立数据连接
myCon.Open ConStr
‘建立数据集
snRes.Open "Select * From 表名",myCon, adOpenStatic, adLockReadOnly
这里打开数据记录集时，可以选择多种参数,可以参考一下帮助文件...
④ vb中连接SQL查询语句代码
‘模块中的代码
Public Function connectstr() As String
sqlpath = App.Path & "\数据库.mdb"
connectstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sqlpath & "" ‘access数据库
End Function
Public Function runselect(ByVal sqlm As String) As ADODB.Recordset '返回记录集
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
On Error GoTo run_error
Set cn = New ADODB.Connection
cn.Open connectstr()
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.Open Trim(sqlm), cn, adOpenDynamic
Set runselect = rs
Set rs = Nothing
Set cn = Nothing
run_error:
MsgBox Err.Description
End Function
’窗体中的代码.................
Private Sub Combo1_Change()
Dim mrc As New ADODB.Recordset
Set mrc = runselect("select * from 表 where 字段='" & Trim(Combo1.Text) & "'")
Set DataGrid1.DataSource = mrc '显示在 datagrid 中
End Sub
⑤ VB怎么连接 SQL 数据库
一个简单的方法:
首先,建立程序公共模块输入以下代码:
Public conn As New ADODB.Connection
'全局变量 rst 指针
Public rst As New ADODB.Recordset
'全局调用函数 打开数据库
Public Function openconn()
conn.ConnectionString = "连接信息"
'此连接信息最简单的生成办法:
'在任意窗口下建立一新ADODC控件
'选择控件属性,通用页,使用连接字符串,生成(U)
'利用该向导生成出字符串,然后将该字符串复制到"连接信息"中即可
conn.Open
End Function
'全局调用函数 关闭数据库
Public Function closeconn()
If conn.State = 1 Then
conn.Close
Set conn = Nothing
End If
End Function
然后在窗体文件中可以使用的函数:
打开数据库:openconn
注意:此函数为自定义函数,无参数,定义在公共模块中!
建立数据表连接:Set rst = conn.Execute("select * from 数据表名")
如做登陆页可以这样判断用户名密码:
Text1.Text = RTrim(rst.Fields("id")) And Text2.Text = RTrim(rst.Fields("password"))
注:其中Text1.Text为输入用户名TextBOX Text2.Text为输入密码TextBOX
数据表中 id 为保存用户名 password 为保存密码!此方法为非加密方法!
关闭数据库函数:
closeconn
Set rst = Nothing
注:此两行,必须在打开数据库的情况下使用!并且每打开一次数据库后必须先使用此两句将数据库关闭后才可打开另一数据库表文件!!!!!否则程序报错终止!
添加新数据函数
rst.AddNew
rst("字段名1") = Text1.Text
rst("字段名2") = Text2.Text
rst.Update
删除数据函数
rst.Delete
注:使用此函数前,必须保证数据库指针函数rst指向需删除数据,移动rst指针可以使用函数:rst.MoveNext或rst.MoveLast
更新数据函数
rst.Open "update 数据表名 set 字段1='" + Text1.Text + "',字段2='" + Text2.Text + "' where id='" + Text3.Text + "'", conn, 1, 3
注,其中 where id = 为更新特定数据表的查找!
如果熟悉SQL语句,还可编写出其他方式的查找,这里就不多做介绍了!
⑥ 如何用VB实现连接SQL数据库
一是：Public Function ConnectString() _
As String
ConnectString = "Provider=SQLOLEDB;User ID=用户;Password=密码;" & "Data Source=" + IP地址 + ";" & "Initial Catalog=数据库名" _
End Function
二是：
Public Function ExecuteSQL(ByVal SQL _
As String, MsgString As String) _
As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSQL_Error
sTokens = Split(SQL)
Set cnn = New ADODB.Connection
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", _
UCase$(sTokens(0))) Then
cnn.Execute SQL
MsgString = sTokens(0) & _
" query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, _
adOpenKeyset, _
adLockOptimistic
Set ExecuteSQL = rst
MsgString = "查询到" & rst.RecordCount & _
" 条记录 "
End If
ExecuteSQL_Exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function
ExecuteSQL_Error:
MsgString = "查询错误: " & _
Err.Description
Resume ExecuteSQL_Exit
End Function
以上复制到模块“Mole1”中
三是:声明：
Dim ADO1 As Recordset
Option Explicit
Dim MsgText As String
Dim TXTSQL As String
四是：连接
TXTSQL = "select * from 表名"
Set ADO1 = ExecuteSQL(TXTSQL, MsgText)
ADO1.Requery
五是显示字段
Set Text1.DataSource = ADO1
Text1.DataField = "字段"
Set MSHFlexGrid1.DataSource = ADO1
⑦ VB连接SQL最简单方法
Public conn As ADODB.Connection Public rs As ADODB.Recordset Public addFlag As Boolean '声明部分 Public Function OpenCn(ByVal Cip As String, ByVal users As String, ByVal pw As String, ByVal sjk As String) 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 = Cip '服务器的名字 conn.Properties("initial catalog").Value = sjk '库名 'conn.Properties("integrated security").Value = "SSPI" '登陆类型 conn.Properties("user id").Value = users 'SQL库用户名 conn.Properties("password").Value = pw '密码 conn.Open OpenCn = True If conn.State = 1 Then addFlag = True Exit Function strerrmag: mag = "连接失败！" Call MsgBox(mag, vbOKOnly, "错误：") addFlag = False Exit Function '连接错误消息 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 'End '将记录集给rs Exit Function strerrmag: mag = "记录返回错误！" Call MsgBox(mag, vbOKOnly, "错误：") openRs = False 'End Exit Function '连接错误消息 End Function Public Sub cloRs() On Error Resume Next If rs.State <> adStateClosed Then rs.Clone Set rs = Nothing '释放记录集 End Sub
⑧ VB连接SQL
问题补充：
“我想知道相对地址连接~~是SQL
移到的机子上不装SQL那怎么办？？”
1、SQL数据库连接必须是服务器，不用地址，因为在安装SQL
Server
2000
后，你的数据库地址已经确定；
2、在一般情况下不安装是不可以的，对于Access数据库现在的操作系统有其驱动，而没有SQL的，除非使用网络，例如局域网。
SQL
SERVER
2000
数据库代码比较简单，无非数据库连接语句不同，其他和Access数据库没有大的区别。
如果“程序要移动到其他机子上”，移动到的机子上必须同样安装SQL
SERVER
2000
数据库，而且服务器名称、数据库名称必须和原服务器名称、数据库名称相同，如果有数据库密码，必须保持一致。
下面是SQL数据库连接代码，请参考：
Public
conn
As
New
ADODB.Connection
conn.ConnectionString
=
"driver={SQL
Server};server=服务器名称;uid=sa;pwd=密码;database=数据库名称"
conn.Open
⑨ vb怎么连接sql
在窗体上添加adodc控件
鼠标右键-adodc属性-在通用选项卡里，点生成，选for
SQL
Server驱动程序-下一步-连接选项卡里
1.输入服务器名称，2.使用Windows
NT
集成安全设置。3.选择一个数据库
点测试连接，看看是否成功。按确定
点记录源选项卡，命令类型选8，命令文本（SQL）写：select
*
from
table1
确定，就连接到SQL数据库的表table1了。
Private
Sub
Command1_Click()
If
Not
Adodc1.Recordset.EOF
Then
Text1.Text
=
Adodc1.Recordset.Fields("line1")
End
If
End
Sub
⑩ vb怎么连接sql
问题补充：
“我想知道相对地址连接~~是sql
移到的机子上不装sql那怎么办？？”
1、sql数据库连接必须是服务器，不用地址，因为在安装sql
server
2000
后，你的数据库地址已经确定；
2、在一般情况下不安装是不可以的，对于access数据库现在的操作系统有其驱动，而没有sql的，除非使用网络，例如局域网。
sql
server
2000
数据库代码比较简单，无非数据库连接语句不同，其他和access数据库没有大的区别。
如果“程序要移动到其他机子上”，移动到的机子上必须同样安装sql
server
2000
数据库，而且服务器名称、数据库名称必须和原服务器名称、数据库名称相同，如果有数据库密码，必须保持一致。
下面是sql数据库连接代码，请参考：
public
conn
as
new
adodb.connection
conn.connectionstring
=
"driver={sql
server};server=服务器名称;uid=sa;pwd=密码;database=数据库名称"
conn.open