Visual Basic Programovani. VB Zdrojovy Kod

VB Zdrojovy Kod. Visual Basic Programovani                    Priklady VB programu pro praci s SQL Priklad prace se vzdalenou zakladnou MySQL     V projektu VB6 vyberte odkaz Microsoft ActiveX Data Objects 2.8 Library. Mozna mate take knihovnu 6.0, Pokud mate system Windows Vista nebo Windows 7. Chcete-li, aby vas program bezel na klientech systemu Windows XP, nikoli v knihovne 2.8. Pokud mate Windows 7 s aktualizaci service pack 1 (SP1), pak vas program nebude nikdy fungovat v zadnem jinem systemu s nizsimi charakteristikami z duvodu chyby kompatibility v balicku aktualizace 1.          Tento kod by vam mel poskytnout dostatek informaci, abyste mohli zacit s rozhranim ODBC.          Private Sub RunQuery() Dim DBCon As adodb.connection Dim Cmd As adodb.Command Dim Rs As adodb.recordset Dim strName As String 'Create a connection to the database Set DBCon = New adodb.connection DBCon.CursorLocation = adUseClient 'This is a connectionstring to a local MySQL server DBCon.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=myDataBase; User=myUsername;Password=myPassword;Option=3;" 'Create a new command that will execute the query Set Cmd = New adodb.Command Cmd.ActiveConnection = DBCon Cmd.CommandType = adCmdText 'This is your actual MySQL query Cmd.CommandText = "SELECT Name from Customer WHERE ID = 1" 'Executes the query-command and puts the result into Rs (recordset) Set Rs = Cmd.Execute 'Loop through the results of your recordset until there are no more records Do While Not Rs.eof 'Put the value of field 'Name' into string variable 'Name' strName = Rs("Name") 'Move to the next record in your resultset Rs.MoveNext Loop 'Close your database connection DBCon.Close 'Delete all references Set Rs = Nothing Set Cmd = Nothing Set DBCon = Nothing End Sub          Zobrazit uplny seznam odkazu na prirucky          Full Download List >>>>          Dale je Kod pro pripojeni k Firebird pomoci ovladace LCPI.IBProvider.3.Free          NEXT >>>>

Visual Basic Programovani. VB Zdrojovy Kod. Zobrazit ukazkove programy

    

    

    

    

Online translate