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
|