浏览 | 提交新的代码片段 | 创建代码包

module to connect to MySQL using MyODBC 3.51
类型: Full Script	类别: Other
许可证: GNU General Public License	语言: Visual Basic
描述: Copy the declarations and code below and paste directly into your VB project.

该代码片段的版本系列:

片段ID	下载版本	提交时间	提交人	删除
4854	1.1	2004-12-09 15:41	smartpig
Changes since last version: 没必要需要那么多ADO对象，再说对象作为变元 影响效率和函数的一般性
4838	1.0	2003-12-17 23:17	cbd001

点击"下载版本"来下载该代码片段.

最新版本的代码片段: 1.1

' put the following in a module

Option Explicit

private conn As ADODB.Connection
Public Function connectMysql(byval ConStr$,byval SqlQuery$) as ADODB.Recordset
dim  rs As ADODB.Recordset
   Set conn = New ADODB.Connection
   Set rs = New ADODB.Recordset
   if  (conn is nothing) or  (rs is nothing) then 
	set connectMysql = nothing
	exit function
  end if
  conn.CursorLocation = adUseClient
  conn.ConnectionString = ConStr
  conn.Open
  set rs.activateconnect=conn
  rs.open SqlQuery
  set connectMySql = rs
End Function

'********************************************


' put this in your form

Dim rs As ADODB.Recordset
Dim username As String
Dim passwd As String
Dim serverIP As String
Dim db As String
Dim ssql As String
Private Sub Form_Load()
dim conStr$
	username = uName
	passwd = pwd
	serverIp = Ip
	conStr=	"DRIVER={MySQL ODBC 3.51 Driver;SERVER= " & serverIp  & ";UID=" & username & ";PWD=" & passwd & ";DATABASE=" & db & ";" & & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 163841

	ssql = "SELECT * FROM accmaster"
	set rs = ConnectMySql(conStr,ssql)
	if rs is nothing then
		'put catch error code in here
	else
	
		Set DataGrid1.DataSource = rs
	end if

End Sub




		

提交新版本

如果您修改了一个代码片段并且觉得很应该让别人共享,您可以把这作为这个代码片段的最新版本提交上来.