在sql数据库中建表，在VB中
做界面，用ADO连接
sql数据库（也可以用DSN方法连接），用网表显示数据库数据
Ⅱ 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
http://..com/question/124849874.html
http://hi..com/%C2%B7%C4%CF%C6%BD/blog/item/19f7c803f1a9b080d43f7c9b.html
Ⅳ vb如何连接sql数据库
1、打开代码窗口，添加引用：Imports System.Data.SqlClient。
Ⅳ 如何将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连接起来，告急
Vb6.0连数据库
1.1 ADO(ActiveX Data Object)连接方式
在连接数据库前，首先要在Visual Basic 6.0菜单中“工程”—>“引用”中选择Microsoft ActiveX Data Objects 2.6 Library 和Microsoft ActiveX Data Objects Recordset 2.6 Library这两个组件。
实例：以建立登陆系统为例，介绍无源数据库连接。在Microsoft SQL Server 2000 中建立一个Student 的数据库，在Student数据库中建立login_user(name,password)的数据表，Microsoft SQL Server服务器的名为data_server。代码如下：
Option Explicit
Public LoginSucceeded As Boolean
'引用Microsoft ActiveX Data Objects 2.6 Library
'定义连接对象和记录集
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
'对取消按钮单击事件的响应
Private Sub cmdCancel_Click()
'设置全局变量为 false
'不提示失败的登录
LoginSucceeded = False
Me.Hide
End Sub
'对登录按钮单击事件的响应
Private Sub cmdOK_Click()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
'建立无源数据库连接
conn.ConnectionString="driver={sql server};server=data_server;uid=sa;pwd=;Database=student"
conn.ConnectionTimeout = 50
conn.Open
Dim str As String
'连接连接对象
Set rs.ActiveConnection = conn
'设置游标类型
rs.CursorType = adOpenDynamic
If Trim(txtUserName.Text = "") Then
MsgBox "用户名不能为空，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
'设置查询字符串
str = "select * from login_user where name ='" & Trim(txtUserName.Text) & "'"
rs.Open str
If rs.EOF = True Then
MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
'登录成功，连接主窗口
If (Trim(txtPassword.Text) = Trim(rs.Fields("password"))) Then
LoginSucceeded = True
Me.Hide
main.Show
Else
MsgBox "密码不正确，请重输入密码!", , "警告"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End If
End If
End Sub
2 通过配置ODBC环境，进行数据源的注册，对数据库进行连接、访问和操作。
2.1 ODBC数据源分为以下三类：
（1） 用户DSN：只有创建数据源的用户才可以使用他们自己创建的数据源，而且只能在当前的计算机上使用。
（2） 系统DSN：任何使用你的计算机的用户和程序都可以使用的DSN。
（3） 文件DSN：除了具有系统DSN的功能之外，还能被其它用户在其它计算机上使用。
2.2 创建ODBC数据源的步骤
（1） 启动控制面板。
（2） 双击ODBC图标，启动ODBC数据源。
（3） 换到“用户DSN”标签，单击“添加”。选择SQLServer作为数据源的驱动程序。
（4） 为数据源命名，按提示操作即可创建ODBC数据源。
2.3 创建数据库连接
创建数据源是进行有源数据库连接的第一步，下面同样是运用ADO对象模型的主要元素Connection（连接）进行源数据库连接。
ConnectionString是Connection对象的属性名称，提供数据提供者或服务提供者打开到数据源的连接所需要的特定信息，包括Database、DSN、UID等。
（1） Database：字符串表达式，指定服务器上的数据库名称。
（2） UID：字符串表达式，为ODBC数据源指定用户标识（用户账号名）。
（3） PWD：字符串表达式，为ODBC数据源指定用户口令。
（4） DSN：字符串表达式，指定连接的ODBC 数据源名称。
利用已配置好的ODBC数据源进行连接。
实例：以建立查询系统为例，介绍有源数据库连接。创建ODBC数据源名称为stud，通过ADO与数据库student进行连接，代码如下：
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "dsn=stud;uid=sa;pwd=;database=student"
conn.Open
Dim str As String
Set rs.ActiveConnection = conn
rs.CursorType = adOpenDynamic
str = "select * from login_user"
rs.Open str
txtUserName.Text = rs.Fields("name")
txtPassword.Text = rs.Fields("password")
End Sub
Ⅶ 求vb6.0与SQL数据库连接的教程或资料,你行的话也可以直接帮帮我QQ313505846
二、VB访问SQL Server数据的常用方法
使用Visual Basic作为前端开发语言，与SQL Server接口有几种常用的方法，即:
①数据访问对象/Jet
②为ODBC API编程
③使用SQL Server的Visual Basic库(VBSQL)为DB库的API编程
④RDO 远程数据对象(RemoteData Objects)
⑤ADO 数据对象(Active Data Objects)
1、数据访问对象/Jet
VB支持Data Access Objects(DAOs)的子集。DAO的方法虽然不是性能最好的管理客户机—服务器之间的对话方式，但它的确有许多优点。DAO/Jet是为了实现从VB访问Access数据库而开发的程序接口对象。使用DAOs访问SQL Server的过程如下:应用程序准备好语句并送至Jet，Jet引擎(MASJT200.DLL)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器(ODBC.DLL)通过调用驱动器(SQLSRVR.DLL)的函数，实现连接到数据源，翻译并向SQL Server提交SQL语句且返回结果。下面是一个用DAOs访问SQL Server的VB实例。
注释:Form Declarations Dim mydb As Database
Dim mydynaset As Dynaset オ
Private Sub Form_Load()
Set mydb = OpenDatabase("", False, False, "ODBC; DSN=Myserver; WSID=LCL; DATABASE = sales")
Set mydynaset = mydb CreateDynaset("Select*from Customers") オ
End Sub
上述例子是以非独占、非只读方式打开sales数据库，并检索Customers表中的所有字段。OpenDatabase函数的最后一个参数是ODBC连接字符串参数，它指明了Microsoft Access连接到SQL Server所需要知道的一些内容。其中“DSN”为数据源名，“WSID”为工作站名，“DATABASE”为所要访问的数据库名。
2、利用ODBC API编程
ODBC(Open Database Connectivity)的思想是访问异种数据库的一种可移植的方式。与数据资源对话的公用函数组装在一个称为驱动程序管理器(ODBC.DLL)的动态连接中。应用程序调用驱动程序管理器中的函数，而驱动程序管理器反过来通过驱动器(SQLSRVR.DLL)把它们送到服务器中。
下面的代码使用上面一些函数先登录到一个服务器数据库，并为随后的工作设置了语句句柄。
Global giHEnv As Long
Global giHDB As Long
Global giHStmt As Long
Dim myResult As integer
Dim myConnection As Srting
Dim myBuff As String*256
Dim myBufflen As Integer
If SQLAllocEnv(giHEnv)<>SQL_SUCCESS Then
MsgBox"Allocation couldn注释：t happen!"
End If
If SQLAllocConnect(giHEnv,giHDB)<>SQL_SUCCESS Then
MsgBox "SQL Server couldn注释：t connect!"
End If
myConnection="DSN=myServer;UID=LCL;PWD=;APP=ODBCTest;WSID=LCL;DATABASE=sales"
myResult=SQLDriverConnect(giHDB,Test,form1.hWnd,myConnection.len(myConnection),
myBuff,256,myBufflen,SQL_DRIVER_COMPLETE_REQU IE D)
myResult=SQLAllocStmt(giHDS,giHStmt)
myResult=SQLFreeStmt(giHStmt,SQL_COLSE)
rsSQL="Select * from Customers Where City = "Hunan""
myResult = SQLExecDirect(giHStmt,rsSQL,Len(rsSQL))
3、使用VBSQL对DB库API编程
DB库是SQL Server的本地API，SQL Server的Visual Basic库(VBSQL)为Visual Basic程序员提供API。从一定意义上说，VBSQL是连接Visual Basic程序到SQL Server的性能最好最直接的方式。VBSQL包含以下三个文件:
VBSQL.VBX: 包含库函数，具有访问重要的消息和处理错误的能力
VBSQL.BI:包括所有的常量和变量说明
VBSQL.HLP:Windows帮助文件，使用VBSQL的指南
使用VBSQL时，必须将VBSQL.BI加入到Visual Basic工程文件中，并确保VB程序运行时有VBSQL.VBX文件。
一般的DB库API编程的过程是这样的:先通过调用SqlInit对DB库进行初始化，再调用SqlConnection打开一个连接，然后就可做一些工作。下面的代码是一个初始化DB库并登录到服务器的通用例程。
Private Sub InitializeApplication()
DBLIB_VERSION=SqlInit()
If DBLIB_VERSION=""Then
MsgBox"Could not initialize DBLIB!Exit application.", MB_ICONEXCLAMATION
End If
End Sub
Private Function LoginToServer() As integer
loginToServer=SUCCEED
Status%=SqlSetloginTime%(loginTimeOut)
If GISqlConn<>0 Then
SqlClose(giSqlConn) 注释：关闭已打开的连接
giSqlConn=SqlOpenConnection(gsServerName, gsLoginID, gsPassword, ProgramName, ProgramName)
If giSqlConn<>0 Then
liresuit=SqlUse(giSqlConn,"Sales")
Else
LogintoServer=FAIL
End If
End Function
4、RDO 远程数据对象(RemoteData Objects)
要讨论RDO,就必然要谈到DAO。RDO是从DAO派生出来的,但两者很大的不同在于其数据库模式。DAO是针对[记录(Records)]和[字段( Fields)],而RDO是作为[行(Rows)]和[列(Columns)]来处理。也就是说DAO 是ISAM模式,RDO是关系模式。此外DAO是访问Access的Jet引擎(Jet是ISAM)的接口，而RDO则是访问ODBC的接口。
可见,RDO是综合了DAO/Jet、VBSQL/DBLib以及ODBC的优点的对象(Object)。需要强调的是，RDO是包裹着ODBC API的一层薄薄的外壳, 被设计成在后台(服务器端)有数据库存在的前提下运行，同时也是针对SQL Server和Oracle而特别设计的。
RDO的优势在于它完全被集成在VB之中。此外，直接访问SQL Server存储过程、完全支持T-SQL、T-SQL调试集成在开发环境中、Visual Database Tools的集成化等，也是RDO的长处。
在RDO的对象和集合中，有很多对数据库的状态和设定进行操作的属性(Property)，以及对数据库进行操作的方法(Method)。利用这些，从RDO2.0起就可以开发事件驱动的数据库应用程序。
RDO对象与VB中其他对象的概念相同。与VB用的ActiveX控件(以往称为Custom Control或OCX、VBX)相似的是,RDO也带有属性和方法;但同Spread、InputMan等普遍应用的ActiveX控件不同的是，RDO没有自己的用户界面，因而可以和VB标准的Timer控件归为同一类。当然也可以将RDO看作调用ODBC API函数，进而对后台数据库操作加以控制的对象。在RDO的属性和方法中，包含了对单个的ODBC API函数以及一连串API函数的调用。
①rdoEngine对象
最初调用RDO对象以及RDC(远程数据控件)时，自动生成rdoEngine对象的附带事件(incident)。rdoEngine用于对RDO全局属性的参数、选项进行设置，是在RDO的阶层结构内处于最上层的对象，包含了所有的其他对象。
rdoEngine对象与DAO/Jet不同，虽然被多个应用程序共享，但体现rdoEngine对象的设定值的属性却并不共用，而是在各自的应用程序的程序界面中对其分别加以设定。这些设定值对其他使用RDO以及RDC的应用程序没有任何影响。rdoEngine不是集合的要素，而是重新定义的对象，rdoEngine对象不能被追加作成对象属性的初值。
②rdoEnvironment对象
RDO对象在自动创建rdoEngine对象时，将rdoEnviroment对象的初始值生成并保存为rdoEnviroments(0)。一般情况下，应用程序中不必追加rdoEnvironment对象，大多只需对已有的rdoEnviroments(0)进行操作就可以了。只有在支持一个以上事务(Transaction)，需要将用户名和口令信息分别处理的情况下，利用rdoCreateEnvironment方法将特定的用户名和口令值做成新的rdoEnvironment对象。在这个方法中可以指定固有名、用户名和口令，如果所指定的值与rdoEnvironments集合的已经存在的成员名称相同，会产生错误。新建的rdoEnvironment对象自动追加在rdoEnvironments集合的最后。调rdoCreateEnvironment方法时，其name参数可以是长度为0的文字列，这时新的rdoEnvironment对象将不会被追加在rdoEnvironments集合之中。
③rdoConnection对象
rdoConnection对象用于同SQL Server的连接管理。
下面是与SQL Server连接的例子。
用OpenConnection方法的一个实例。
设定的DSN为MyDSN:
Dim Cn As rdoConnection
Dim En As rdoEnvironment
Dim Conn As String
Conn = "DSN = MyDSN; UID = Jacob;" & "PWD = 123456; DATA BASE = MyDb;"
Set Cn= En.OpenConnection("", rdDrivERPrompt, False, Co nn)
Set Cn= En.OpenConnection(Prompt:= rdDriverPrompt, Rea dOnly:= False,Connect:= Cnn)
用EstablishConnection方法的一个实例。
这里以独立的rdoConnection对象为例说明与SQL Server的连接。
Public WithEvents Eng As rdoEngine
Public WithEvents Cn As rdoConnection
Private Sub Form_Load()
Set Eng = New rdoEngine
Set Cn = New rdoConnection
With Cn
.Connect = "UID = ; PWD = ;" & "DATABASE = pubs; DSN = biblio"
.LoginTimeout = 5
.EstablishConnection rdoDriverNoPromt, True, rdAsyncEna ble
End With
End Sub
在这个例子中，Form_Load函数对rdoEngine和rdoConnection对象进行初始化。这里有一点需要注意，rdoConnection对象是处于独立的状态之下，即使是处于未连接状态也可以设置属性的值。接下来是rdoConnect对象的事件处理程序。从RDO 2.0起可以实现异步方式(rdAsyn cEnable)，EstablishConnection就设定为该值。在异步状态下，不必等待与数据库的连接，程序可以迅速从Form_Load 函数中退出。 然后是BeforeConnect事件，该处理在与数据库的连接开始以前被激发，此时不能进行有关终止连接的操作:
Private Sub Cn_BeforeConnect(ConnetString As String, Pro mpt As Variant)
MsgBox "正在连接" & ConnectString, vbOKOnly, "连接前"
End Sub
连接完成之后的事件处理:
Private Sub Cn_Connect(ByVal ErrorOccurred As Boolean)
Dim M As String
If ErrorOccurred Then
For Each er In rdoErrors
M = M & er & vbCrLf & M
Next
MsgBox "连接失败" & vbCrLf & M
Else
MsgBox "连接成功"
注释：这是确认连接状态的测试代码
Cn.Excute "use pubs"
End Sub
RDO连接处理结束后，在该事件中确认连接成功与否。连接成功的情况下ErrorOccurred返回False，失败时为True，由此可以对rdoErrors集合进行检测:
Private Sub Eng_InfoMessage()
For Each er In rdoErrors
Debug.Print er
Next
RdoErrors.Clear
End Sub
不能与SQL Server连接的原因多种多样，有可能是由于对数据库的访问权限、网络连接问题、数据库表的信息错误、SQL Server同时连接的许可数、资源不足等等，具体情况需要与网络管理员商量。 断开连接的操作非常简单，但又很重要，因为RDO不提供自动断开的功能。
Cn.Close
Set Cn = Nothing 注释：释放对象所占的内存资源
En.Close
Set En = Nothing 注释：释放对象所占的内存资源
VB是对象语言，Form、ActiveX控件也都是对象。使用对象后必须养成将对象设为Nothing把它从内存中释放的编程习惯。这样可以预防很多不可预测错误，往往程序中发生原因不明的错误时，其原因就在于此。
Ⅷ VB小白（0基础）如何用VB编程连接SQL并且对其进行操作
Option Explicit
Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset对象
Dim ConnStr As String
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection
'On Error GoTo MyErr:
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=登录数据库用户名(默认为sa);Password=登录数据库密码;Initial Catalog=数据库名;Data Source=服务器名(默认为:MERRYCHINA)" '这是连接SQL数据库的语句
Conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
Set Selectsql = rs
'Exit Function
'MyErr:
'Set rs = Nothing
'Set Conn = Nothing '释放相关的系统资源
'MsgBox Err.Description, vbInformation, "系统提示" '显示出错信息
End Function
Private Sub Form_Load()
Dim SQL As String
Dim rs As ADODB.Recordset
Dim X As Long
On Error GoTo Err_box
SQL = " select * from 用户表"
Set rs = Selectsql(SQL)
If rs.RecordCount > 0 Then
rs.MoveFirst
For X = 1 To rs.RecordCount
Combo1.AddItem rs.Fields("用户名").Value
rs.MoveNext
Next X
Combo1.ListIndex = 0
End If
rs.Close
Exit Sub
Err_box:
End Sub
Private Sub Command1_Click()
Dim SQL As String
Dim rs As ADODB.Recordset
If Text1.Text = "" Then
MsgBox "请输入口令!", 16
Text1.SetFocus
Exit Sub
End If
If Combo1.Text = "" Then
MsgBox "请选择登录用户!", 16
Combo1.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM 用户表 WHERE 用户名='" & Combo1.Text & "' AND 密码='" & Text1.Text & "' "
Set rs = Selectsql(SQL)
If rs.RecordCount > 0 Then
Form1.Show '想要打开的主窗体
MsgBox "恭喜兄弟,登录成功!", 64, "提示"
Unload Me
Else
MsgBox "口令不对,请重新输入!", 16, "提示"
Text1.SetFocus
End If
End Sub
'**********************************************************************
'说明:1) 在工程中引用Microsoft ActiveX Data Objects 2.8 Library ,其它版本也行如:2.0
' 2) 在窗体中加Texe1.text(文本框控件),Combo1.text(组合框控件),Command1(命令按钮)各一个
' 3) 在SQL Server2000中创建数据库，新建表"用户表",表中包含"ID,姓名,密码"等字段,然后将以上代码复制,OK搞定
4) 以上方式无需加载ADO控件,方便!
Ⅸ vb怎么连入SQL数据库，请详细一些，真心不明白
够详细了吧
Public conbook As ADODB.Connection '声明全局的连接对象变量
Public Sub Main() '入口程序
Dim bln As Boolean
bln = opensqlserver
If bln = True Then
On Error GoTo connerr
End If
Dim s As String
Dim fn As String '文件名
'如果数据库booksystem已经存在，先删除
conbook.Execute ("IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = 'booksystem') EXEC sp_detach_db 'booksystem', 'true'")
'查找数据库文件是否存在，如果存在则根据文件附加数据库
If Dir(App.Path & "\database\*.mdf") <> "" And Dir(App.Path & "\database\*.ldf") <> "" Then
'存在时根据文件附加数据库
s = "exec sp_attach_db @dbname='booksystem', @filename1= '" & App.Path & "\database\booksystem_data.mdf', @filename2='" & App.Path & "\database\booksystem_log.ldf'"
conbook.Execute (s) '附加数据库
Else
'数据库文件不存在，则先查找备份文件是否存在，如果存在，根据备份还原数据库
fn = Dir(App.Path & "\database\*.dat")
If fn <> "" Then
s = "restore database booksystem from disk='" & App.Path & "\database\" & fn & "' with recovery,move 'booksystem_data' to '" & _
App.Path & "\database\booksystem_data.mdf' ,move 'booksystem_log' to '" & App.Path & "\database\booksystem_log.ldf'"
conbook.Execute s '恢复数据库到工程路径
Else
'备份文件不存在，则先根据sql语句创建数据库
Call createdb '调用过程，创建数据库
End If
End If
'附加成功后将当前数据库设置为student
conbook.Execute ("use booksystem")
frmStar.Show
'MDIMain.Show
Exit Sub
connerr:
MsgBox Err.Description
End Sub
'自定义函数，打开和SQL数据库的连接
Public Function opensqlserver() As Boolean
On Error GoTo conerr
Set conbook = New ADODB.Connection
With conbook
.Provider = "sqloledb"
.ConnectionTimeout = 30
.CommandTimeout = 30
.ConnectionString = "data source=.;user id=sa;password=;database=master" '连接字符串
.Open
End With
opensqlserver = True
Exit Function
conerr:
MsgBox "数据库连接失败！" & Err.Description
opensqlserver = False
End Function
Public Function rsopen(rs As ADODB.Recordset, sql As String) As Boolean
On Error GoTo rserr
'分配内存
Set rs = New ADODB.Recordset
'设置属性
rs.CursorLocation = adUseClient '客户端游标
rs.Open sql, conbook, adOpenStatic, adLockOptimistic, adCmdText
rsopen = True
Exit Function
rserr:
MsgBox "记录集打开失败！" & Err.Description
rsopen = False
End Function
Private Sub createdb() '自定义过程，创建数据库
On Error GoTo dberr
Dim s As String
Dim sql As String
Dim fn As String
'在工程路径下查找sql文件
fn = Dir(App.Path & "\database\*.sql")
If fn <> "" Then '如果存在，打开文件，执行sql语句
fn = App.Path & "\database\" & fn '获得文件路径名
Open fn For Input As #1
While EOF(1) = False
Line Input #1, s
sql = sql & s & vbCrLf ' 从文件中读取sql命令
Wend
conbook.Execute sql '执行sql创建数据库和表
Close #1 '关闭文件
Else
'不存在，则执行指定的sql语句创建数据库
s = "create database booksystem on(name='booksystem_data',filename='" & App.Path & "\database\booksystem_data.mdf',size=2,filegrowth=1)" & _
"log on(name='booksystem_log',filename='" & App.Path & "\database\booksystem_log.ldf',size=2,filegrowth=1)"
Open App.Path & "\database\booksystem.sql" For Output As #2 '打开文件，存储sql语句
Print #2, s '向文件中写入数据
Close #2 '关闭文件
MsgBox "创建数据库的sql语句已经写入文件", , "写入数据"
conbook.Execute s '执行sql语句创建数据库
End If
Exit Sub
dberr:
MsgBox "创建数据库失败！" & Err.Description
End
End Sub
Public Sub over()
On Error GoTo erra
'分离数据库，结束程序的运行
If conbook.State = 1 Then
conbook.Execute ("backup database booksystem to disk='" & App.Path & "\database\backupbooksystem.dat'") '备份数据库
conbook.Execute ("use master")
conbook.Execute ("EXEC sp_detach_db 'booksystem', 'true'") '分离数据库
conbook.Close '关闭连接
Set conbook = Nothing '释放内存
End If
End '结束程序
Exit Sub
erra:
End Sub
Ⅹ vb中怎么使用sql
select * from 成绩表 where 姓名='张大保'
翻译为中文就是
从“成绩表”中选择所有姓名是“张大保”的记录
From 从...... From 成绩表 就是“从成绩表...”的意思
Form 是表格、表单的意思，用在这里是没意义的
另外在条件前面要加上where，意思就是在什么地方去找你要的东西
这些都是最基本的，你先把sql的语法搞清楚了再到VB中应用