誰會VB LINK MYSQL?

yongjian91

誰會VB LINK MYSQL?
我朋友的作業要用VB LINK MYSQL?
可是他不會怎么用?
這裏有誰會嗎?

海星1988

VB link MSSQL 2000 can or not ???

jasonmun

海星1988 于 13-11-2004 09:49 PM  说 :
VB link MSSQL 2000 can or not ???

Public Function ExecuteSQL (ByVal SQL As String, MsgString As String) As ADODB.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 "FileDSN=XXX.dsn;UID=sa;PWD="

     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
           Set ExecuteSQL = rst
           MsgString = "get " & rst.RecordCount & " records"
     End If

     ExecuteSQL_Exit :

            Set rst = Nothing
            Set cnn = Nothing

    Exit Function

    ExecuteSQL_Error:

          MsgString = " got Err:" & Err.Description
          Resume ExecuteSQL_Exit

End Function

===========================
Dim mrc As ADODB.Recordset
Dim MsgText As String
Dim txtSQL As String

txtSQL = "select * from table"

Set mrc = ExecuteSQL(txtSQL, MsgText)
While Not mrc.Eof
       xxx.Text = mrc.Fields(0)
      mrc.MoveNext
Wend

jasonmun

yongjian91 于 13-11-2004 04:47 PM  说 :
誰會VB LINK MYSQL?
我朋友的作業要用VB LINK MYSQL?
可是他不會怎么用?
這裏有誰會嗎?

我有一个简单example,要吗?
PM给我你的email..

海星1988

[quote] jasonmun 于 14-11-2004 05:57 AM  说 :


Public Function ExecuteSQL (ByVal SQL As String, MsgString As String) As ADODB.RecordSet

     Dim cnn As ADODB.Connection
     Dim rst As ADODB.RecordSet
     Dim sTokens() As String

   ... [/quot

为什么引用我的贴子？？

jasonmun

海星1988 于 14-11-2004 02:36 PM  说 :
[quote] jasonmun 于 14-11-2004 05:57 AM  说 :


Public Function ExecuteSQL (ByVal SQL As String, MsgString As String) As ADODB.RecordSet

     Dim cnn As ADODB.Connection
     Dim rst ...

是吗? 我是从一本IT书上抄出来的..
这写法很普通..

goatstudio

yongjian91 于 13-11-2004 04:47 PM  说 :
誰會VB LINK MYSQL?
我朋友的作業要用VB LINK MYSQL?
可是他不會怎么用?
這裏有誰會嗎?

你需要安装 MySQL ODBC.

hc2

镇样， 才懂我已经安装了MySQL ODBC 呢？

海星1988

jasonmun 于 14-11-2004 03:24 PM  说 :


是吗? 我是从一本IT书上抄出来的..
这写法很普通..

sori.,我不是说你用我的coding啦.....,一场误会！！ 我收到你给我的example 了， 谢谢！！

goatstudio

hc2 于 17-11-2004 01:35 AM  说 :
镇样， 才懂我已经安装了MySQL ODBC 呢？

去 Control Panel -> Administrator Tools-> Data Source (ODBC), 随便 add 一个 DSN, 看看有没有 MySQL 的选项.

呵呵... 你这样问的话, 通常是还没安装. MySQL ODBC 是要另外下载安装的.

charleschin

goatstudio 于 17-11-2004 09:27 AM  说 :


去 Control Panel -> Administrator Tools-> Data Source (ODBC), 随便 add 一个 DSN, 看看有没有 MySQL 的选项.

呵呵... 你这样问的话, 通常是还没安装. MySQL ODBC 是要另外下载安装的.

After Installed MYODBC, i can run MYSQL on own Machine and network machine. but if i want to run MYSQL at web server how ?

goatstudio

charleschin 于 17-11-2004 01:40 PM  说 :



After Installed MYODBC, i can run MYSQL on own Machine and network machine. but if i want to run MYSQL at web server how ?

从 server 连接, 你的 server 当然要安装 MYODBC.

MYSQL如何建立新的table?

goatstudio

用 phpmyadmin, 或 mysql 本身的 GUI, 你需要另外下载安装.

charleschin

goatstudio 于 17-11-2004 02:07 PM  说 :


从 server 连接, 你的 server 当然要安装 MYODBC.

ok let's say Servar also installed MYODBC.

now client pc how to link to Web server?

goatstudio

如果你的 MySQL 安装在 server 上, 那么凡事要连接上这台 server 的 client pc 都要安装 MySQL odbc.

如果你的 MySQL 和你的 apps 同时安装在 server 上, 你的 apps 需要用到 MySQL, 那么也要安装 MySQL odbc.

charleschin

My problem is , how to make apps like antivirus update function?

when click update, the program will link to server to find the latest updated file and download from server to client pc

goatstudio

charleschin 于 18-11-2004 05:53 PM  说 :
My problem is , how to make apps like antivirus update function?

when click update, the program will link to server to find the latest updated file and download from server to client pc

无论你的程序在那里... 只要你的程序要连上任何一台 MySQL, 那程序的电脑就要安装 MySQL ODBC, 因为你的程序需要通过 MyODBC 来辨认 MySQL 的所在地.

海星1988

想问一个问题， 希望不会太菜鸟 ！！ ：P
请问 MySQL 和 MS SQL 2000 有什么不同？？

goatstudio

MySQL 不是 relational database, 严格来说是 file based.
MSSQL 是真正的 relational database.

MySQL 对于非盈利团体是免费的, 即使收费也很低廉.
MSSQL 相当昂贵.

MySQL 功能很简单, 就是一个普通的资料库.
MSSQL 功能十分强劲, 有 DTS, server plan... 等功能.