VB+SQL

Question

请教大家一个很基础的问题,如何将VB中的textbox中的信息插入到SQL中.请给详细的代码..

Answer 1

连接数据库
sql="insert [Table](a)values('" & trim(textbox.text) &"')"
con.execute Sql

Answer 2

Dim strSql As String
    
    strSql = "Select * from Table where xxxx = '" & Trim(Text1.Text) & "'"

Answer 3

dim sqlstr$
sqlstr = "insert into table1 values('"& txt1.text &"')"

Answer 4

一、引言SQL Server是微软推出的中小型网络数据库系统，是目前最常用的数据库系统之一。随着SQL Server网络数据库应用程序日益增多，这种Web数据库应用系统的正常运行一般依赖于已存在的用户数据库。创建维护数据库的工作可用SQL Server提供的SQL Enterprise Manager工具来进行，如能提供一种定制的数据库管理工具，通过管理应用程序来管理数据库及其设备，对用户来说无疑是最理想的。Visual Basic作为一种面向对象的可视化编程工具，具有简单易学，灵活方便和易于扩充的特点。而且Microsoft为其提供了与SQL Server通信的API函数集及工具集，因此它越来越多地用作大型公司数据和客户机—服务器应用程序的前端，与后端的Microsoft SQL Server相结合，VB能够提供一个高性能的客户机—服务器方案。二、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、数据访问对象/JetVB 支持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 DeclarationsDim mydb As DatabaseDim 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 LongGlobal giHDB As LongGlobal giHStmt As LongDim myResult As integerDim myConnection As SrtingDim myBuff As String*256Dim myBufflen As IntegerIf SQLAllocEnv(giHEnv)<>SQL_SUCCESS ThenMsgBox"Allocation couldn注释：t happen!"End IfIf SQLAllocConnect(giHEnv,giHDB)<>SQL_SUCCESS ThenMsgBox "SQL Server couldn注释：t connect!"End IfmyConnection="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=""ThenMsgBox"Could not initialize DBLIB!Exit application.", MB_ICONEXCLAMATIONEnd IfEnd SubPrivate Function LoginToServer() As integerloginToServer=SUCCEEDStatus%=SqlSetloginTime%(loginTimeOut)If giSqlConn<>0 ThenSqlClose(giSqlConn) 注释：关闭已打开的连接giSqlConn=SqlOpenConnection(gsServerName, gsLoginID, gsPassword, ProgramName, ProgramName)If giSqlConn<>0 Thenliresuit=SqlUse(giSqlConn,"Sales")ElseLogintoServer=FAILEnd IfEnd Function4、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 rdoConnectionDim En As rdoEnvironmentDim Conn As StringConn = "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 rdoEnginePublic WithEvents Cn As rdoConnectionPrivate Sub Form_Load()Set Eng = New rdoEngineSet Cn = New rdoConnection

Answer 5

? 
With Cn.Connect = "UID = ; PWD = ;" & "DATABASE = pubs; DSN = biblio".LoginTimeout = 5.EstablishConnection rdoDriverNoPromt, True, rdAsyncEna bleEnd WithEnd 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 StringIf ErrorOccurred ThenFor Each er In rdoErrorsM = M & er & vbCrLf & MNextMsgBox "连接失败" & vbCrLf & MElseMsgBox "连接成功"注释：这是确认连接状态的测试代码Cn.Excute "use pubs"End SubRDO连接处理结束后，在该事件中确认连接成功与否。连接成功的情况下ErrorOccurred返回False，失败时为True，由此可以对rdoErrors集合进行检测：Private Sub Eng_InfoMessage()For Each er In rdoErrorsDebug.Print erNextRdoErrors.ClearEnd Sub不能与SQL Server连接的原因多种多样，有可能是由于对数据库的访问权限、网络连接问题、数据库表的信息错误、SQL Server同时连接的许可数、资源不足等等，具体情况需要与网络管理员商量。断开连接的操作非常简单，但又很重要，因为RDO不提供自动断开的功能。Cn.CloseSet Cn = Nothing 注释：释放对象所占的内存资源En.CloseSet En = Nothing 注释：释放对象所占的内存资源VB是对象语言，Form、ActiveX控件也都是对象。使用对象后必须养成将对象设为Nothing把它从内存中释放的编程习惯。这样可以预防很多不可预测错误，往往程序中发生原因不明的错误时，其原因就在于此。5、ADO 数据对象(Active Data Objects)ADO 是基于全新的OLE DB技术，OLE DB可对电子邮件、文本文件、复合文件、数据表等各种各样的数据通过统一的接口进行存取。随着ActiveX控件的升级(Windows 98的ActiveX 5.0)，RDO将被以ActiveX技术为基础的ADO接口所替代。下面将介绍基于ActiveX技术的ADO访问SQL Server 6.5数据库的技术和方法。基于浏览器的ADO接口常用函数如下：(1)取当前的工作数据库由于管理任务一般都必须在Master库中完成，因此在执行管理任务之前，最好保存当前工作库，以便完成任务之后再切换回原来的任务。Public Function SQLGetCurrentDatabaseName(Cn As ADODB.Connection) As StringDim sSQL As StringDim RS As New ADODB.RecordsetOn Error GoTo errSQLGetCurrentDatabaseNamesSQL="select CurrentDB=DB_NAME ( )"RS.Open sSQL, CnSQLGetCurrentDatabaseName=Trim $ (RS! CurrentDB)RS.CloseExit FunctionerrSQLGetCurrentDatabaseName:SQLGetCurrentDatabaseName=" "End Function(2)取SQL Server安装目录下的DATA子目录路径取SQL Server的设备文件缺省目录，返回如D:MSSQL DATA。Public Function SQLGetDataPath(Cn As ADODB.Connection) As StringDim sSQL As StringDim RS As New ADODB.RecordsetDim sFullPath As StringOn Error GoTo errSQLGetDataPathsSQL="select phyname from master..sysdevices where name=注释：master注释： "RS.Open sSQL, CnsFullPath = RS! phynameRS.CloseSQLGetDataPath=Left $ (sFullPath, Len(sFullPath) -10) 注释：MASTER.DAT的大小Exit FunctionerrSQLGetDataPath:SQLGetDataPath=" "End Function(3)创建一个新数据库Public Function SQLCreateDatabase65 (Cn As ADODB.Connection,sDBName As String, sDataDeviceName As String, nDataSize As Integer, Optional sLogDeviceName, Optional nLogSize) As BooleanDim sSQL As StringOn Error GoTo errSQLCreateDatabase65Dim sDB As StringsDB =SQLGetCurrentDatabaseName(Cn)sSQL = "USE master"Cn.Execute sSQLsSQL ="CREATE DATABASE" & sDBNamesSQL = sSQL &" ON " & sDataDeviceName & "=" & nDataSizeIf Not IsMissing(sLogDeviceName) And Not IsMissing(nLogSize) ThensSQL = sSQL & "LOG ON" & sLogDeviceName & "="& nLogSizeEnd IfCn.Execute sSQLsSQL = "USE" & sDBCn.Execute sSQLSQLCreateDatabase65 = TrueExit FunctionerrSQLCreateDatabase65:On Error Resume NextsSQL = "USE " & sDBCn.Execute sSQLSQLCreateDatabase65 = FalseEnd Function(4)判断一个数据库是否存在
Public Function SQLExistDatabase(Cn As ADODB.Connection, sDBName As String) As Boolean
Dim sSQL As StringDim RS As New ADODB.RecordsetDim bTmp As Booleanon Error GoTo errSQLExistDatabasesSQL = "select CntDB = count ( * ) "sSQL = sSQL & "From master.dbo.sysdatabases"sSQL = sSQL & "Where name = 注释： "& sDBName & " 注释： "RS.Open sSQL, CnIf RS! CntDB = 0 Then bTmp = False Else bTmp = TrueRS.CloseSQLExistDatabase = bTmpExit FunctionerrSQLExistDatabase:SQLExistDatabase = FalseExit FunctionEnd Function(5)删除一个数据库Public Function SQLDropDatabase (Cn As ADODB.Connection, sDBName As String) As BooleanDim sSQL As StringOn Error GoTo errSQLDropDatabaseIf Not SQLExistDatabase(Cn, sDBName) ThenSQLDropDatabase = TrueExit FunctionEnd IfDim sDB As StringsDB = SQLGetCurrentDatabaseName(Cn)sSQL = "Use master"Cn.Execute sSQLsSQL = "DROP DATABASE " & sDBNameCn.Execute sSQLsSQL = "USE " & sDBCn.Execute sSQLSQLDropDatabase = TrueExit FunctionerrSQLDropDatabase:On Error Resume NextsSQL = "USE " & sDBCn.Execute sSQLSQLDropDatabase = FalseEnd Function三、性能比较及应用说明用VB 开发基于SQL Server的数据库系统，以上几种访问SQL Server的方法各有各的特点。DAOs方法是基于对象的，因而便于使用，但是它是从Visual Basic到SQL Server最慢的连接方式。ODBC API和VBSQL方法从本质上讲是基于程序的。ODBC API方法通用性好，允许最强的互操作性，编程简单，但速度慢于VBSQL方法。VBSQL方法通过VBSQL控件，提供了重要的SQL Server前端应用程序所需的灵活性、强大功能和良好性能。它具有真正的事件驱动及错误处理能力，完全支持异步处理、游标和计算列等。这些都是 VBSQL方法超出其它方法的优势，但其编程稍复杂。RDO是位于ODBC API之上的一个对象模型层，它依赖ODBC API、ODBC驱动程序以及后端数据库引擎来实现，用RDO所需的程序短小(约250 KB)、快速。RDO具备基本的ODBC处理方法，可直接执行大多数ODBC API函数，RDO包含在VB 4.0/VB 5.0企业版中，由MSRDO32.DLL动态连接库来实现。RDO是综合了DAO/Jet、VBSQL/DBLib和ODBC的优点的对象模型，包含 ODBC API应用层，设计为在后台(服务器端)有数据库存在的前提下运行，是针对SQL Server和Oracle而特别设计的。RDO的优势在于它完全被集成在VB之中，可直接访问SQL Server存储过程、完全支持T-SQL、T-SQL调试集成在开发环境中、Visual Database Tools的集成化等。但微软已宣布今后不再对VBSQL/DBLib进行升级，而ODBC API函数一般的编程方式也不为人们所喜爱，RDO的应用将逐渐减少。至于实际使用哪一种接口方式，在很大程度上依赖于用户的应用程序的具体情况而定

Answer 6

连接数据库
sql="insert [Table](a)values('" & trim(textbox.text) &"')"
con.execute Sql