首页电脑/网络程序设计 VB

VB连SQL SERVER问题

  各位高手好!本人用VB+ACCESS做了一套系统,现需要把数据库改成SQL SERVER版。并且支持远程和多用户。本人从未接解SQL数据库。特向各位高手求教。我已经安装了SQL正式商业版。并在Local服务组里面建立了对应的数据库（数据库名为：CRC_TZ)我以前的程序是在Bas模块里做了ADO连接函数块,内容包括(建立数据库链接、利用SQL语句返回记录集、利用SQL语句执行无返回的数据库命令）代码附后。
  请高手帮我修改一下这个模块，以便我能连上SQL SERVER数据库。实现远程数据库和多用户同时操作的目的。热心的朋友请留着您的联系方式，便于向您请教。-------------------------Private Function Connect() As Variant '建立数据库链接 On Error GoTo ErrorHandler Dim CN As New ADODB。
  Connection CN。Provider = "Microsoft。Jet。OLEDB。4。0" 'CN。Provider = "sqloledb。1" CN。ConnectionTimeout = 5 CN。CursorLocation = adUseClient CN。
  ConnectionString = "data source=" & App。Path & "\ b" '在此修改数据库路径 CN。Open Set Connect = CN Exit Function ErrorHandler: Set Connect = Nothing Set CN = Nothing strerror = Err。
  Description End Function Public Function GetRecordset(strSQL As String) As ADODB。Recordset '形成记录集 On Error GoTo ErrorHandler Dim CN As New ADODB。
  Connection Dim rs As New ADODB。Recordset Set CN = Connect() If (CN Is Nothing) Then Set GetRecordset = Nothing Exit Function End If rs。
  CursorType = adOpenDynamic rs。CursorLocation = adUseClient rs。ActiveConnection = CN rs。Open strSQL Set CN = Nothing ' Set GetRecordset = rs Exit Function ErrorHandler: strerror = Err。
  Description Set CN = Nothing Set rs = Nothing Set GetRecordset = Nothing End Function Public Function ExcuteCmd(strSQL As String) As Boolean '执行无返回的SQL语句 On Error GoTo ErrorHandler Dim CN As ADODB。
  Connection Dim CMD As New ADODB。Command Set CN = Connect() If (CN Is Nothing) Then GoTo ErrorHandler End If CMD。
  ActiveConnection = CN CMD。CommandText = strSQL CMD。CommandType = adCmdText CMD。Execute ExcuteCmd = True Set CN = Nothing Set CMD = Nothing Exit Function ErrorHandler: ExcuteCmd = False strerror = Err。
  Description Set CN = Nothing Set CMD = Nothing End Function 。

全部回答

1***

2006-06-16

0 0

    '数据源信息常量 Public Const conn As String = "Provider=SQLOLEDB。1;Password=sa;User ID=sa;Initial Catalog=StudentFiles;Data Source=localhost;" '一次执行connect操作可以访问数据库的次数 Public Const CONNECT_LOOP_MAX = 10 '== 标记数据库是否连接 == Private IsConnect As Boolean '== 标记执行Connect()函数后，访问数据库的次数 == Private Connect_Num As Integer Private cnn As ADODB。
    Connection '连接数据库的Connection对象 Private rs As ADODB。Recordset '保存结果集的Recordset对象 '连接数据库 Private Sub Connect() '如果连接标记为真，则返回。
    否则会出错 If IsConnect = True Then Exit Sub End If '关键New用于创建新对象cnn Set cnn = New ADODB。
  Connection '设置连接字符串ConnectionString属性 cnn。  ConnectionString = conn '打开到数据库的连接 cnn。
  Open '判断连接的状态 If cnn。State <> adStateOpen Then '如果连接不成功，则显示提示信息，退出程序 MsgBox "数据库连接失败" End End If '设置连接标记，表示已经连接到数据库 IsConnect = True End Sub '断开与数据库的连接 Private Sub Disconnect() Dim Rc As Long '如果连接标记为假，标明已经断开连接，则直接返回 If IsConnect = False Then Exit Sub End If '关闭连接 cnn。
    Close '释放cnn Set cnn = Nothing '设置连接标记，表示已经断开与数据库的连接 IsConnect = False End Sub '使用Connect_Num控制数据库连接 Public Sub DB_Connect() Connect_Num = Connect_Num + 1 Connect End Sub Public Sub DB_Disconnect() If Connect_Num >= CONNECT_LOOP_MAX Then Connect_Num = 0 Disconnect End If End Sub '强制关闭api方式访问的数据库，计数器复位 Public Sub DBapi_Disconnect() Connect_Num = 0 Disconnect End Sub '执行数据库操作语句 Public Sub SQLExt(ByVal TmpSQLstmt As String) '创建Command对象cmd Dim cmd As New ADODB。
    Command '连接到数据库 DB_Connect '设置cmd的ActiveConnection属性，指定与其关联的数据库连接 Set cmd。
  ActiveConnection = cnn '设置要执行的命令文本 cmd。  CommandText = TmpSQLstmt ' MsgBox TmpSQLstmt '执行命令 cmd。
  Execute '清空cmd对象 Set cmd = Nothing '断开与数据库的连接 DB_Disconnect End Sub '执行数据库查询语句 Public Function QueryExt(ByVal TmpSQLstmt As String) As ADODB。
    Recordset '创建Recordset对象rst Dim rst As New ADODB。Recordset '连接到数据库 DB_Connect '设置rst的ActiveConnection属性，指定与其关联的数据库连接 Set rst。
    ActiveConnection = cnn '设置游标类型 rst。CursorType = adOpenDynamic '设置锁定类型 rst。
  LockType = adLockOptimistic '打开记录集 rst。  Open TmpSQLstmt '返回记录集 Set QueryExt = rst End Function 。

提交

天***

2006-06-15

55 0

    这是我的系统模块里的代码。vb+sql的看看对你有帮助吗。 Attribute VB_Name = "Module1" Public UserName As String Public fMainForm As frmMain Public gintdMode As Integer Public gintvMode As Integer Public gintsMode As Integer Public gintrMode As Integer Public gintaMode As Integer Public flagdEdit As Boolean Public flagvEdit As Boolean Public flagsEdit As Boolean Public flagrEdit As Boolean Public flagaEdit As Boolean Sub Main() Dim fLogin As New frmLogin fLogin。
    Show vbModal If Not fLogin。OK Then 'Login Failed so exit app End End If Unload fLogin Set fMainForm = New frmMain fMainForm。
    Show End Sub Public Function ConnectString() _ As String 'returns a DB ConnectString ConnectString = "FileDSN=vehicle。
    dsn;UID=sa;PWD=" End Function Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As ADODB。
  Recordset 'executes SQL and returns 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 'rst。
  MoveLast 'get RecordCount 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 Public Sub EnterToTab(Keyasc As Integer) If Keyasc = 13 Then SendKeys "{TAB}" End If End Sub 。
    。

提交

相关回答

c***

2008-12-01

VB高手请进：VB连接Acces

  语法 recordset。Open Source, ActiveConnection, CursorType, LockType, Options 参数 Source 可选，变体型，计算 Command 对象的变量名、SQL 语句、表名、存储过程调用或持久 Recordset 文件名。
   ActiveConnection 可选。变体型，计算有效 Connection 对象变量名；或字符串，包含 ConnectionString 参数。
   CursorType 可选，CursorTypeEnum 值，确定提供者打开 Recordset 时应该使用的游标类型。可为下列常量之一（参阅 CursorType 属性可获得这些设置的定义）。
   常量说明 AdOpenForwardOnly （默认值）打开仅向前类型游标。 AdOpenKeyset 打开键集类型游标。 AdOpenDynamic 打开动态类型游标。
   AdOpenStatic 打开静态类型游标。 LockType 可选。确定提供者打开 Recordset 时应该使用的锁定（并发）类型的 LockTypeEnum 值，可为下列常量之一（参见 LockType 属性可获得详细信息）。
   常量说明 AdLockReadOnly （默认值）只读 — 不能改变数据。 AdLockPessimistic 保守式锁定（逐个） — 提供者完成确保成功编辑记录所需的工作，通常通过在编辑时立即锁定数据源的记录。
   AdLockOptimistic 开放式锁定（逐个） — 提供者使用开放式锁定，只在调用Update 方法时才锁定记录。 AdLockBatchOptimistic 开放式批更新—用于批更新模式（与立即更新模式相对）。
   Options 可选，长整型值，用于指示提供者如何计算 Source 参数（如果它代表的不是 Command 对象），或从以前保存 Recordset 的文件中恢复 Recordset。
  可为下列常量之一（参见 CommandType 属性可获得该列表中前五个常量的详细说明）。常量说明 adCmdText 指示提供者应该将 Source 作为命令的文本定义来计算。
   adCmdTable 指示 ADO 生成 SQL 查询以便从在 Source 中命名的表中返回所有行。 adCmdTableDirect 指示提供者更改从在 Source 中命名的表中返回所有行。
   adCmdStoredProc 指示提供者应该将 Source 视为存储过程。 adCmdUnknown 指示 Source 参数中的命令类型为未知。
   adCmdFile 指示应从在 Source 中命名的文件中恢复保留（保存的）Recordset。 adAsyncExecute 指示应异步执行 Source。
   adAsyncFetch 指示在提取 Initial Fetch Size 属性中指定的初始数量后，应该异步提取所有剩余的行。如果所需的行尚未提取，主要的线程将被堵塞直到行重新可用。
   adAsyncFetchNonBlocking 指示主要线程在提取期间从未堵塞。如果所请求的行尚未提取，当前行自动移到文件末尾。说明使用 Recordset 对象的 Open 方法可打开代表基本表、查询结果或者以前保存的 Recordset 中记录的游标。
   使用可选的 Source 参数指定使用下列内容之一的数据源：Command 对象变量、SQL 语句、存储过程、表名或完整的文件路径名。如果 Source 是文件路径名，它可以是完整路径（“c:\dir\ t”）、相对路径（“。
  。\ t”）或 URL（“http://files/ t”）。 ActiveConnection 参数对应于 ActiveConnection 属性，并指定在哪个连接中打开 Recordset 对象。
  如果传送该参数的连接定义，则 ADO 使用指定的参数打开新连接。可以在打开 Recordset 之后更改该属性的值以便将更新发送到其他提供者。或者可以将该属性设置为 Nothing（在 Microsoft Visual Basic 中）以便将 Recordset 与所有提供者断开。
   对于直接对应于 Recordset 对象属性的参数（Source、CursorType 和 LockType），参数和属性的关系如下：在 Recordset 对象打开之前属性是读/写。
   除非在执行 Open 方法时传送相应的参数，否则将使用属性设置。如果传送参数，则它将覆盖相应的属性设置，并且用参数值更新属性设置。在打开 Recordset 对象后，这些属性将变为只读。
   注意对于其 Source 属性被设置为有效 Command 对象的 Recordset 对象，即使 Recordset 对象没有打开，ActiveConnection 属性也是只读的。
   如果在 Source 参数中传送 Command 对象并且同时传递 ActiveConnection 参数，那么将产生错误。Command 对象的 ActiveConnection 属性必须已经设置为有效的 Connection 对象或者连接字符串。
   如果在 Source 参数中传送的不是 Command 对象，那么可以使用 Options 参数优化对 Source 参数的计算。如果没有定义 Options 则性能将会降低，原因是 ADO 必须调用提供者以确定参数是否为 SQL 语句、存储过程或表名。
  如果已确定所用的 Source 类型，则可以设置 Options 参数以指示 ADO 直接跳到相关的代码。如果 Options 参数不匹配 Source 类型，将产生错误。
   如果不存在与 Recordset 关联的连接，Options 参数的默认值将为 adCmdFile。这是持久 Recordset 对象的典型情况。如果数据源没有返回记录，那么提供者将 BOF 和 EOF 属性同时设置为 True，并且不定义当前记录位置。
  如果游标类型允许，仍然可以将新数据添加到该空 Recordset 对象。在打开的 Recordset 对象上完成操作时，可使用 Close 方法释放任何相关的系统资源。
  关闭对象并非将它从内存中删除，可以更改它的属性设置并且在以后使用 Open 方法再次将其打开。要将对象从内存中完全删除，可将对象变量设置为 Nothing。在设置 ActiveConnection 属性之前调用不带操作数的 Open，可通过将字段追加到 Recordset Fields 集合创建 Recordset 的实例。
   如果已经将 CursorLocation 属性设置为 adUseClient，就可以采用两种途径之一异步检索行。建议使用的方法是将 Options 设置为 adAsyncFetch。
  或者，可以使用在 Properties 集合中的“异步行集合处理”动态属性，但如果未将 Options 参数设置为 adAsyncFetch，则可能丢失相关的被检索事件。注意在 MSRemote 提供者中的背景提取仅能通过 Open 方法的 Options 参数得到支持。
  收起

VB连SQL SERVER问题

全部回答

相关回答

VB高手请进：VB连接Acces

类似问题换一批

热点推荐

热度TOP

热点搜索换一换

VB连SQL SERVER问题

全部回答

相关回答

VB高手请进：VB连接Acces

类似问题换一批

热点推荐

热度TOP

热点搜索 换一换

热点搜索换一换