bitte immer noch um hilfe!!! dringend!!!
04.05.2005 02:11:03
vv2
Jetzt will ich aber zweioder auch mehr sql Statements in der Tabelle einbinden.
Mein Problem er fragt jedesmal den Connect wieder ab. wie kann ich eine verbindung realisieren mit der ich mehrere SQLs einbinden kann
für eine schnelle hilfe wäre ich sehr dankbar
mein code:
Sub test8()
x = Worksheets("Tabelle1").Cells(6,1).Value
If IsNumeric(Cells(6, 1)) Then
If x > 1900 And x < 2050 Then
Range("B1:B2").ClearContents
Dim at As QueryTable
Dim sqlstring As String
sqlstring = "select sum (laenge)/1000 from TWLD.gas_altg"
sqlstring = sqlstring & " where verlegejahr=" & Cells(6, 1)
connstring = "ODBC;DSN=orcl92;UID=TWLD;PWD=TWLD;SERVER=orcl92;"
With ActiveSheet.QueryTables.Add(connection:=connstring, Destination:=Range("B1:B2"), sql:=sqlstring)
.Refresh
End With
Range("C1").Font.Color = RGB(255, 234, 6)
Else
MsgBox "Falsche Jahreseingabe"
End If
Else
MsgBox "FAlsche Jahreseingabe"
End If
End Sub