我是菜鳥，最近在仿照書上說的練習做乙個物資管理系統，用的是vb6.0+sqlserver2000
其中在新增函式executesql時，出現了問題，函式內容如下：
public function executesql(byval sql as string, msgstring as string) as adodb.recordset
dim **n as adodb.connection
dim rst as adodb.recordset
dim stokens() as string
on error goto executesql_error
stokens = split(sql)
set **n = new adodb.connection
**n.open connectstring
if instr("insert,delete,update", ucase$(stokens(0))) then
**n.execute sql
msgstring = stokens(0) & "query sucessful"
else
set rst = new adodb.recordset
rst.open trim$(sql), **n, adopenkeyset, adlockoptimistic
set executesql = rst
msgstring = "查詢到" & rst.recordcount & "條記錄"
end if
executesql_exit
set rst = nothing
set **n = nothing
exit function
executesql_error
msgstring = "查詢錯誤" & err.description
resume executesql_exit
end function
public function connectstring() as string
connectstring = "filedsn=material.dsn;uid=sa;pwd=sa"
end function
VB 6 0 與 SQL Server 的兩種連線
visual basic 6.0與 sql server 的兩種連線 摘 要 本文介紹了visual basic 6.0應用程式通過ado連線microsoft sql server的兩種方法，即有源資料庫連線和無源資料庫連線，分別說明了兩種連線方法的內部機制，並以例項比較兩種方法的優缺點。vb通過...
VB6 0函式集合
一 型別轉換類函式 1.ctype x 格式 p cbool x 將x轉換為 布林 boolean 型別 p cbyte x 將x轉換為 位元組 byte 型別 p ccur x 將x轉換為 金額 currency 型別 p cdate x 將x轉換為 日期 date 型別 p cdbl x 將x轉...
VB6 0 程式設計入門
識別符號 使用者在程式設計時定義的名稱。關鍵字 vb中擁有固定含義 不能被重新定義的識別符號。常見關鍵字 as 定義乙個變數 date 日期函式 else 條件語句中的 否則 error 錯誤物件 let 屬性定義的關鍵字 me 當前物件 null 表示變數不包含有效資料 nothing 將物件變數...