Problema con query My_SQL

[maxsona]

Mi spiegate perchè questa query (per esempio)

sql = "Select username from forum_users Where user_id = "&idr
Set rc=conn.Execute(SQL)

Funziona alla perfezione con database Access ma con My_SQL mi dà questo errore ?

Microsoft VBScript runtime error '800a01a8'

Object required: 'driver={MySQL};serve'

La stringa di connessione al DB My_SQL funzia

[rixx]

e la conn al db dovè :rollo:

[99eros9]

infatti... ti richiede di aprire la connessione al db attraverso l'istanza dell'oggetto connection

[maxsona]

Se può essere utile eccola

' Stabilisco la connessione con il database My SQL del Forum.

Dim MySQLSVR, MySQLPRT, MySQLUID, MySQLPWD, CONN, MySQLOPT, DB_CONNECTIONSTRING, UploadPath, CSS

MySQLSVR = "xxx"	        ' enter IP or hostname of MySQL server
MySQLPRT = 3306			' enter MySQL port (default 3306)
MySQLUID = "xxx"		' enter Username (between quotes)
MySQLPWD = "xxx"		' enter Password (between quotes)
MySQLDB  = "xxx"	        ' enter Active DataBase (between quotes)
MySQLOPT = 16387	        ' enter MyODBC options values (at least 16387)

CONN = "driver={MySQL};server="&MySQLSVR&";port="&MySQLPRT&";"_
	& "uid="&MySQLUID&";pwd="&MySQLPWD&";database="&MySQLDB&";option="&MySQLOPT&""

Funzia perchè altre operazioni che faccio su sto DB vanno bene...

[maxsona]

Scusate, cmq la stringa e la query sono queste

' Stabilisco la connessione con il database My SQL del Forum.
Dim MySQLSVR, MySQLPRT, MySQLUID, MySQLPWD, MySQLDB, MySQLOPT, DB_CONNECTIONSTRING, UploadPath, CSS

MySQLSVR = "xxx"	' enter IP or hostname of MySQL server
MySQLPRT = 3306		' enter MySQL port (default 3306)
MySQLUID = "xxx"        ' enter Username (between quotes)
MySQLPWD = "xxx"	' enter Password (between quotes)
MySQLDB  = "xxx"	' enter Active DataBase (between quotes)
MySQLOPT = 16387	' enter MyODBC options values (at least 16387)

MySQLDB = "driver={MySQL};server="&MySQLSVR&";port="&MySQLPRT&";"_
	   & "uid="&MySQLUID&";pwd="&MySQLPWD&";database="&MySQLDB&";option="&MySQLOPT&""

sql = "Select username from forum_users Where user_id = "&idr
Set rs=MySQLDB.Execute(SQL)

[99eros9]

manca

set conn = server.createObject("ADODB.CONNECTION")

e

conn.open MySQLDB

[maxsona]

Originariamente inviato da 99eros9
manca

set conn = server.createObject("ADODB.CONNECTION")

e

conn.open MySQLDB

c'è tutto, infatti altre operazioni sul db mi funziano ... siccome che uso My_SQL per la prima volta siamo sicuri che la query sia giusta così ?

sql = "Select username from forum_users Where user_id = "&idr
Set rs=MySQLDB.Execute(SQL)

[99eros9]

prova ad inserire questo nella stringa di connessione:

{MySQL ODBC 3.51 Driver}

al posto di

{MySQL}

...

[maxsona]

Grazie ho risolto ... la stringa di connessione andava bene, è che la query come l'avevo scritta non andava bene per fare quello che mi serviva ... adesso funzia tutto ...