本文目录索引

• 1，VB如何连接SQL数据库?
• 2，VB如何连接SQL SERVER？
• 3，vb操作sql语句
• 4，vb怎么连接sql？
• 5，vb中怎么使用sql
• 6，在VB中，怎样对SQL数据库里面的数据进行操作？
• 7，SQL中事务有什么好处 如何使用事务
• 8，SQL语言和其他程序设计语言有什么不同
• 9，vb里用SQL的多条件查询，请教

1，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

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

2，VB如何连接SQL SERVER？

打开“控制面板”→“管理工具”→“数据源 (ODBC)”后，出现窗体。 单击“系统DSN”选项卡后，点击“添加”按钮，出现窗体。 选择其中的“SQL Server”后，单击“完成”，出现窗体。 单击“下一步”，。选择“SQL Server验证”，一般ID为“sa”，密码为空（实际要根据具体情况输入）。 单击“下一步”。更改默认数据库为所建立的数据库。 单击“下一步”后完成设置。 （2）VB中使用ADO数据库控件，实现与数据库的连接 使用ADO数据库控件需要添加组件，控件工具箱中就出现需要的控件。 将控件放在需要的窗体中，。 鼠标右键调出ADODC属性,进行设置。在未建立数据源的情况下，也可进行“新建”或者使用第三个选择“使用连接字符串”。 数据源设立完毕，就需要设立身份验证和记录源。 以上设置也可在ADODC1控件的属性中进行设置(3)代码实现Public conn As ADODB.ConnectionPublic rs As ADODB.RecordsetPublic addFlag As Boolean '声明部分Public Function OpenCn(ByVal Cip As String, ByVal users As String, ByVal pw As String) As Boolean '连接模块 填写数据库等信息Dim mag As StringOn Error GoTo strerrmagSet conn = New ADODB.Connectionconn.ConnectionTimeout = 25conn.Provider = "sqloledb"conn.Properties("data source").Value = Cip '服务器的名字conn.Properties("initial catalog").Value = "pubs" '库名'conn.Properties("integrated security").Value = "SSPI" '登陆类型conn.Properties("user id").Value = users 'SQL库名conn.Properties("password").Value = pw '密码'sql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=pubs;Data Source=127.0.0.1" '如果不用这个模块也行可以，这一句便是常用的引擎。'conn.ConnectionString = sql conn.OpenOpenCn = TrueIf conn.State = 1 Then addFlag = TrueExit Functionstrerrmag: mag = "Data can't connect" Call MsgBox(mag, vbOKOnly, "Error:Data connect") addFlag = False Exit Function '连接错误消息End Function'关闭数据库，释放连接Public Sub cloCn()On Error Resume NextIf conn.State adStateClosed Then conn.CloseSet conn = NothingEnd SubPublic Function openRs(ByVal strsql As String) As Boolean '连接数据库记录集Dim mag As StringDim rpy As BooleanOn 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 Functionstrerrmag: mag = "data not connect" Call MsgBox(mag, vbOKOnly, "error:connect") openRs = False End 'Exit Function '连接错误消息End FunctionPublic Sub cloRs()On Error Resume NextIf rs.State adStateClosed Then rs.CloneSet rs = Nothing '释放记录集End Sub

3，vb操作sql语句

可以用 rs 来做, 因为 Update 是针对全部记录的...需要用 Where 来限制条件...

另外..如果 t1 中只有 t2 一个字段, 是不能修改的..因为你 t2 全部=10 修改的时候会出错!...需要增加一个字段是自动编号的 才能分辩出行...可能更改 t2 的值


sql = "Select * From t1 "

rs.Open sql, conn


for i=1 to 10

rs.fields("t2").value=i

rs.update

rs.movenext

Next i

4，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
按下一步
1、输入服务器名称
2、使用指定的服务器信息
3、在服务器上选择数据库
这时就选择在SQL Server建好的数据库就行了
5、测试连接可以看到连接是否成功。

5，vb中怎么使用sql

select * from 成绩表 where 姓名='张大保'
翻译为中文就是
从“成绩表”中选择所有姓名是“张大保”的记录
From 从...... From 成绩表 就是“从成绩表...”的意思
Form 是表格、表单的意思，用在这里是没意义的
另外在条件前面要加上where，意思就是在什么地方去找你要的东西
这些都是最基本的，你先把sql的语法搞清楚了再到VB中应用

6，在VB中，怎样对SQL数据库里面的数据进行操作？

方法1，
建立一个模块
将工程的启动设置为 SUB MAIN
在模块里写下面代码
Public db As Database
Public rs As Recordset
Sub main()
set db=db.opendatabase("数据库路径")
第一启动窗体.show
end sub
以后在其他窗体中如果要调用数据库只用在窗体中写代码
set rs=openrecordset()
这时数据库的内容都存在FILE集合里
比方说set rs=openrecordset("select* form student")
rs.file(0)就是SQL语句查询结果的第一列
rs.files就是整个结果
使用text1.text=rs.file(0)就可以把文本框于查询结果帮定起来
如果要对数据库进行修这时用以下代码：
db.Execute （)
方法2，
工程--部件--选择microsoft data bound grid control 5.0
然后在窗体中添加左边工具栏的 DATA 和DBGRID 控件
选择DBGRID 将属性DATASOURCE 设置为DATA控件的名字（如DATA1）
然后选择DATA 将属性CONNECT设置为ACCESSS 2000
设置DATABASENAME 选择数据库的存放路径
最后设置RECORDSET 为需要连接的表的名字
运行就可以看到 DATAGRID中显示了数据库的信息

7，SQL中事务有什么好处 如何使用事务

事务的好处在于，当你需要对多个表进行相关性操作时，使用BeginTrans()开启事务，然后操作，如果中间哪个表更新出错了，或者数据有问题，你可以用RollBack()方法在取消之前的相关性操作，如果没有错，那就使用Commit()方法提交你的修改。另外，在这个过程中，所有你改动的内容只对你自己有效，别人不能知道你改了什么，也不能对你正在改的表做修改，直到你提交之后，别人才能修改这些表，检索出你修改过的内容。

8，SQL语言和其他程序设计语言有什么不同

1、首先SQL语言是数据库结构化查询语言，是非过程化编程语言。而程序设计语言则有更多的面向对象及逻辑程序设计。比如用SQL语言编写个窗口、做个进度条什么的，是无法实现的。2、SQL语言可以说是，程序设计语言和数据库之间的一个翻译官。程序设计中需要操作数据库，则通过SQL语言来翻译给数据库管理系统。如图所示： 3、不同数据库管理系统会有一些特殊的SQL规范，比如 TOP 是无法在mysql中使用的。而这些规范与程序设计语言无关。

9，vb里用SQL的多条件查询，请教

什么意思 7各控件存的是字段名称？ 然后要求查询出这7各字段均不为空的所有数据？ 假设字段名称存在Text1.Text，Text2.Text，Text3.Text，Text4.Text，Text5.Text，Text6.Text，Text7.Text Dim sqlStr as StringsqlStr = "Select * from myTable where " & Text1.Text & " is not null and " & _sqlStr = sqlStr & Text2.Text & " is not null and " & _sqlStr = sqlStr & Text3.Text & " is not null and " & _sqlStr = sqlStr & Text4.Text & " is not null and " & _sqlStr = sqlStr & Text5.Text & " is not null and " & _sqlStr = sqlStr & Text6.Text & " is not null and " & _sqlStr = sqlStr & Text7.Text & " is not null"