1樓：51cto學院
'在使用前需要先安裝mysql的驅動，進行正確配置
'注意：必須給出正確的伺服器名、資料庫名、表名、資料庫連線的使用者名稱、密碼
option explicit
dim **n as adodb.connection '定義ado連線物件
dim records as adodb.recordset '定義ado記錄集物件
'連線到資料庫
function **nopen(byval servername as string, byval dbname as string, byval tblname as string, byval user as string, byval pwd as string) '伺服器名或ip、資料庫名、登入使用者、密碼
dim **nstr as string '定義連線字串
set **n = createobject("adodb.connection") '建立ado連線物件
**n.***mandtimeout = 15 '設定超時時間
**nstr = "driver=;server=" & servername & ";database=" & dbname & ";u;pwd=" & pwd & ";stmt=set names gbk" '
**n.connectionstring = **nstr
**n.open
end function
'關閉連線
function **nclose()
if **n.state = 1 then
**n.close
end if
end function
'把excel寫入mysql中的資料庫
function inserttomysql(byval sheetname as string, byval tblname as string)
dim sqlstr as string
dim i, j as integer
dim columns, rows as integer
columns = vbaproject.func_public.gettotalcolumns(sheetname)
rows = vbaproject.func_public.gettotalrows(sheetname)
set records = createobject("adodb.recordset")
'取得結果集並插入資料到資料庫
set records = createobject("adodb.recordset")
'以下語句提供了插入思路，我只是把單條記錄的插入方式改為迴圈，以把所有的記錄新增到表中
'rs.open "insert into newtable values('" & activesheet.cells(i, 1).
value & "'," & "'" & activesheet.cells(i, 2).value & "')", **n, 0
for i = 2 to rows
sqlstr = "insert into " & tblname & " values('" & sheets(sheetname).cells(i, 1).value & "'" '注意：
" values('"，字母「v」之前是有空格的！！！
for j = 2 to columns
sqlstr = sqlstr & ",'" & sheets(sheetname).cells(i, j).value & "'"
next
sqlstr = sqlstr & ")"
set records = **n.execute(sqlstr) 'rs.open sqlstr, **n, 0 不能用這條語句實現！！！
next
msgbox "insert!", vbokonly, "excel to mysql"
end function
'清除物件
function clearobj()
set **n = nothing
set records = nothing
end function
2樓：匿名使用者
option explicit
dim hwd as long '存放窗體控制代碼dim pid as long '存放程序iddim hprocess as long '存放程序控制代碼dim h as long '存放二級指標dim buffer as long '存放一級指標dim hp as integer '存放血量dim mp as integer '存放魔法值dim jy as integer '存放經驗值dim maxmp as integer '存放魔法上限dim maxhp as integer '存放血量上限dim dj as integer '人物等級private sub form_load()hwd = findwindow(vbnullstring, "element client") '讀取hwnd
if hwd = 0 then
msgbox "遊戲未執行!!!!!", , "遊戲未執行"
end if
getwindowthreadprocessid hwd, pid '獲取程序識別符號
hprocess = openprocess(process_all_access, 0, pid) '將程序識別符號做為引數，返回目標程序pid的控制代碼，得到此控制代碼後即可對目標進行讀寫操,process_all_access表示完全控制,許可權最大
if hprocess = 0 then
msgbox "不能開啟程序!!!!!", , "開啟程序錯誤"
exit sub
end if
jsp連線資料庫，JSP連線資料庫SQL
string driverclass com.microsoft.jdbc.sqlserver.sqlserverdriver string url jdbc microsoft sqlserver 127.0.0.1 1433 databasename db database08 string u...
jdbc連線資料庫
你的sql2005的jar包 放在你專案裡面沒有啊，它說它找不到驅動。你是用eclipse執行的程式嗎如果是的話需要在eclipse裡面構建一下路徑。你寫錯了是這樣寫的 我的b站 https space.app id 1616309264508817qq群 1097414647有任何問題，可以在b站...
c連線資料庫的步驟是什麼，C 中連線資料庫的程式碼是什麼 寫在什麼地方的
c 連線資料庫有以下幾個步驟 1 使用配置的資料庫連線串，建立資料庫連線 connection 物件 2 構建操作的sql語句 3 定義command物件 4 開啟資料連線 5 執行命令 舉乙個例子，刪除操作 public class studentservice stuid 定義command物件...