vb6 ODBC 드라이버를 사용하는 데이터 mysql 테이블의 행 수

Question

ODBC 드라이버를 사용하여 테이블의 행 수를 계산하는 방법 3:51 Visual Basic 6의 MYSQL 기능은 무엇입니까?

Answer 1

Dim strDataBaseName As String 
Dim strDBCursorType As String 
Dim strDBLockType As String 
Dim strDBOptions As String 
Dim rs As ADODB.Recordset 
Dim cn As ADODB.Connection 

Private Sub Command1_Click() 

Dim b as Long 
strDBCursorType = adOpenDynamic 'CursorType 
strDBLockType = adLockOptimistic 'LockType 
strDBOptions = adCmdText   'Options 

Set cn = New ADODB.Connection 


cn.Open ConnectString() 

    With cn 
     .CommandTimeout = 0 
     .CursorLocation = adUseClient 
    End With 

    Set rs = New ADODB.Recordset  'Creates record set 

    strSQL = "select COUNT(id) from item" 

    rs.Open strSQL, cn, strDBCursorType, strDBLockType, strDBOptions 


if rs.Eof then 
    Goto ExitSub  
else 
    <Traverse your recordset here> 
end if 

ExitSub: 

rs.Close 
Set rs = Nothing 
cn.Close 
Set cn = Nothing 

On Error GoTo 0 
Exit Sub 



Private Function ConnectString() As String 
Dim strServerName as String 
Dim strDatabaseName as string 
Dim strUserName as string 
Dim strPassword as string 


strServerName = "localhost" 
strDatabaseName = "DatabaseName" 
strUserName = "UserName" 
strPassword ="Password" 

ConnectString = "DRIVER={MySQL ODBC 3.51 Driver};" & _ 
       "SERVER=" & strServerName & _ 
       ";DATABASE=" & strDatabaseName & ";" & _ 
       "USER=" & strUserName & _ 
       ";PASSWORD=" & strPassword & _ 
       ";OPTION=3;" 

End Function 

사용해보기.