vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Datenbanken
Re: Fehler mit MySQL-Abfrage 
Autor: look
Datum: 16.11.04 08:43
probier mal folgen Verbindung aus:


Function Datenverbindung()

'Wird für zugriff auf MYSQL benötigt

Const FLAG_FIELD_LENGTH As Long = 1 ' Don't Optimize Column Width
Const FLAG_FOUND_ROWS As Long = 2 ' Return Matching Rows
Const FLAG_DEBUG As Long = 4 ' Trace driver calls (c:\\myodbc.log)
Const FLAG_BIG_PACKETS As Long = 8 ' Allow BIG results.
Const FLAG_NO_PROMPT As Long = 16 ' Don't prompt on Connect
Const FLAG_DYNAMIC_CURSOR As Long = 32 ' Enable Dynamic Cursor
Const FLAG_NO_SCHEMA As Long = 64 ' Ignore the schema defination - Ignore # in #.Table
Const FLAG_NO_DEFAULT_CURSOR As Long = 128 ' No default cursor - Use Manager Cursors
Const FLAG_NO_LOCALE As Long = 256 ' Don't Use Setlocale
Const FLAG_PAD_SPACE As Long = 512 ' Pad CHAR to Full Length
Const FLAG_FULL_COLUMN_NAMES As Long = 1024 ' Return Table Names in SQLDescribeCol
Const FLAG_COMPRESSED_PROTO As Long = 2048 ' Use Compressed Protocol
Const FLAG_IGNORE_SPACE As Long = 4096 ' Ignore Space After Function Names
Const FLAG_NAMED_PIPE As Long = 8192 ' Force Use of Named Pipes
Const FLAG_NO_BIGINT As Long = 16384 ' Change BIGINT Columns to INT
Const FLAG_NO_CATALOG As Long = 32768 ' No Catalog (exp)
Const FLAG_USE_MYCNF As Long = 65536 ' Read Options From C:\\my.cnf
Const FLAG_SAFE As Long = 131072 ' Safety (Check this if you have problems)
Const FLAG_NO_TRANSACTIONS As Long = 262144 ' Disable Transactions
Const FLAG_LOG_QUERY As Long = 524288 ' Save queries to log file (c:\myodbc.sql)
Const FLAG_NO_CACHE As Long = 1048576 ' Don't Cache Results(only for forward-only cursor)
Const FLAG_FORWARD_CURSOR As Long = 2097152 ' Force use of Forward-only cursors
Const cintOption As Long = FLAG_FIELD_LENGTH Or FLAG_FOUND_ROWS Or FLAG_NO_BIGINT

Datenbank = "Provider=MSDASQL; " & _
"Driver=MySQL ODBC 3.51 Driver; " & _
"Server="127.0.0.1; " & _
"Port="3306; " & _
"Database="Mitspieler; " & _
"Option=" & CStr(cintOption) & "; "

End Function


Function Daten
SQL300 = SELECT * From email WHERE id = '1'
Set DB300 = New ADODB.Connection
Set RS300 = New ADODB.Recordset
Call Datenverbindung

DB300.Open Datenbank, Benutzer, Passwort
RS300.CursorLocation = adUseClient
RS300.Open SQL300, DB300, adOpenStatic, adLockOptimistic



end Function
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Fehler mit MySQL-Abfrage1.766ThoHei15.11.04 20:16
Re: Fehler mit MySQL-Abfrage1.067look16.11.04 06:56
Re: Fehler mit MySQL-Abfrage1.048ThoHei16.11.04 08:24
Re: Fehler mit MySQL-Abfrage1.051ThoHei16.11.04 08:24
Re: Fehler mit MySQL-Abfrage1.019ThoHei16.11.04 08:44
Re: Fehler mit MySQL-Abfrage1.076spike2416.11.04 09:05
Re: Fehler mit MySQL-Abfrage1.086look16.11.04 08:43
Re: Fehler mit MySQL-Abfrage1.037ThoHei16.11.04 09:51
Re: Fehler mit MySQL-Abfrage1.063look16.11.04 10:16
Re: Fehler mit MySQL-Abfrage1.052ThoHei16.11.04 11:28
Re: Fehler mit MySQL-Abfrage1.043look16.11.04 12:19
Re: Fehler mit MySQL-Abfrage1.043ThoHei16.11.04 13:10
Re: Fehler mit MySQL-Abfrage1.114Zero-G.22.11.04 12:18

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel