Help :master:
Ho scritto il codice e tutto compilato non da errori ma non succede niente![]()
![]()
Dovrebbe inserire di dati dell form al db MySQL del server apache
Ecco il codice:
Perchè non succede nulla?Potreste darmi qualche dritta?codice:Private Sub cmd_execute_query_Click() Call EXECUTESQL End Sub Function EXECUTESQL() 'variabili di connessione Dim STATO As MyVbQL.MYSQL_CONNECTION_STATE Dim CONNESSIONE As New MyVbQL.MYSQL_CONNECTION Dim QUERY As MyVbQL.MYSQL_RS 'variabili campi db SQL Dim VB_CONTENT As String * 1000 Dim VB_TITLE As String * 50 Dim Vb_DATE As Data Set CONNESSIONE = New MyVbQL.MYSQL_CONNECTION 'accesso e risultati STATO = CONNESSIONE.OpenConnection("localhost", "darkdevil", "mysqlpass", "database_contenuti") 'connessione aperta If STATO = MyVbQL.MY_CONN_OPEN Then VB_CONTENT = Form1.Text2 VB_TITLE = Form1.Text1 Set QUERY = CONNESSIONE.Execute("INSERT INTO tabella_news (title,body,date) VALUES (VB_TITLE,VB_CONTENT,VB_DATE)") CONNESSIONE.CloseConnection Set RES = Nothing Set CONNESSIONE = Nothing 'connessione chiusa Else MsgBox ("Errore durante la connessione. Riprova") MsgBox (CONNESSIONE.Error) End If End Function![]()
Grazie ciao

Rispondi quotando