Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - come usare una variabile in una query
Forum - Visual Basic 6 - come usare una variabile in una query

Avatar
claudio1983 (Normal User)
Newbie


Messaggi: 5
Iscritto: 17/09/2010

Segnala al moderatore
Postato alle 12:25
Martedì, 11/01/2011
come faccio ad usare una variabile in una query?

PM
Avatar
poeo85 (Normal User)
Pro


Messaggi: 104
Iscritto: 27/01/2010

Up
2
Down
V
Segnala al moderatore
Postato alle 13:23
Martedì, 11/01/2011
esempio :

sql = "Select * from tabella where campo = " & campo1

in pratica dentro variabile sql hai la tua query...non ti resta che farla eseguire

se stringa ricordati gli apici

se non è chiaro spiega il tuo caso

Ultima modifica effettuata da poeo85 il 11/01/2011 alle 13:24
PM
Avatar
claudio1983 (Normal User)
Newbie


Messaggi: 5
Iscritto: 17/09/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 14:26
Martedì, 11/01/2011
la mia e una query di accodamento(insert into)  e ho velle variabili con dei risultati tirati fiori da un file di lettura.sto usando un tipo di dato aggregato di tipo

Private Type employeeUTD
  file As String
  SCHEMA As String
  DDNAME As String
  DSNAME As String
  FIELDS() As String
End Type

voglio inserire quei dati nella tabella
If Mid(inputstr, 1, 6) = "DDNAME" Then
    inputstr = Mid(inputstr, 7)
     inputstr = LTrim(inputstr)
    If Mid(inputstr, 1, 1) = "=" Then
      inputstr = Mid(inputstr, 2)
       inputstr = LTrim(inputstr)
      If InStr(inputstr, " ") Then
        lun = InStr(inputstr, " ")
        inputstr11 = Left(inputstr, lun - 1)
        inputstr22 = Mid(inputstr, lun)
        inputstr11 = Trim(inputstr11)
        DDNAME1 = inputstr11
        inputstr22 = LTrim(inputstr22)
        If InStr(inputstr22, "DSNAME") Then
          inputstr22 = Mid(inputstr22, 7)
           inputstr22 = LTrim(inputstr22)
           If Mid(inputstr22, 1, 1) = "=" Then
             inputstr22 = Mid(inputstr22, 2)
             DSNAME1 = inputstr22
            
             emp.DSNAME = DSNAME1
             emp.DDNAME = DDNAME1
             claudio(w) = emp

For i = 1 To (w) - 1
   m_fun.FnConnection.Execute "Insert into  DMSUPRA_TABELLE (DDName) VALUES( claudio(i).DDName )"
  Next i qui mi da errore

PM
Avatar
claudio1983 (Normal User)
Newbie


Messaggi: 5
Iscritto: 17/09/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 10:11
Mercoledì, 12/01/2011
GRADIRE UN AIUTO???????

PM
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Up
0
Down
V
Segnala al moderatore
Postato alle 15:30
Mercoledì, 12/01/2011
1) Non scrivere in maiuscolo perchè equivale ad urlare (leggi il regolamento)

2) Ti ha già risposto poeo85

Poi tu hai postato il tuo codice senza dire niente, ne se non avevi capito qualcosa, ne dove hai problemi, ecc... A me la risposta di poeo85 sembra esauriente, non dovrebbe essere difficile da capire.

PM
Avatar
poeo85 (Normal User)
Pro


Messaggi: 104
Iscritto: 27/01/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 16:47
Giovedì, 13/01/2011
come ti ho spiegato nel mio esempio

sql = "Select * from tabella where campo = " & campo1

non puoi fare

m_fun.FnConnection.Execute "Insert into  DMSUPRA_TABELLE (DDName) VALUES( claudio(i).DDName )"


visto che claudio è una "variabile"
non mi sembra di aver scritto cose errate e difficili

se vuoi la soluzione

m_fun.FnConnection.Execute "Insert into  DMSUPRA_TABELLE (DDName) VALUES( '" & claudio(i).DDName & "' )"

per le stringhe ricordati l'apice  =>  '


non so essere più chiaro di così

PM