Hallo zusammen,



ich habe folgende Problem. Ich möchte folgende Abfrage in mein VB6 Projekt integrieren.









use Datenbank1

Update Adresseset Orderfax = '0123-456789', ContactFax = '0123-456789', OrderFax = ' + 49 123 456789', ZipCode = '22222'

/*select * from SuppAddress*/;

use Datenbank1

Update Logins

set Password = Null where LoginName = 'Admin';

insert into Logins Values ('User1r',Null,Null,Null,Null,Null,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,Null,Null,1,1,1,1,1,1,1,1,1,1,1,1,1)

insert into Logins Values ('User2',Null,Null,Null,Null,Null,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,Null,Null,1,1,1,1,1,1,1,1,1,1,1,1,1)

insert into Logins Values ('User3',Null,Null,Null,Null,Null,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,Null,Null,1,1,1,1,1,1,1,1,1,1,1,1,1)

/*select * from Logins*/;







Code eingefügt mit Syntaxhighlighter 4.0







ich kenn mich zwar ein bisschen mit SQL Abfragen aus, aber wie kann ich meine VB6 App jetzt dazu bringen, diese Abfrage auf dem von mir gewünschten Server auszuführen??



Ich habe das ganze bis jetzt nur in Access DB´s gemacht. Da geht das so:









Option Explicit



Dim DB As Database

Dim Rst As Recordset

Dim SQL As String



Public varName As String

Public varVName As String

Public alles As String



Private Sub cmdGo_Click()

Set DB = OpenDatabase(App.Path & "\Datenbankname.mdb")



'Auswahlabfrage wird erzeugt

  SQL = "SELECT * FROM Feld1 WHERE Feldinhalt1 = '" & cmbFeld1.Text & "'"



  Set Rst = DB.OpenRecordset(SQL)



'Textfelder werden mit den Werten aus der Auswahlabfrage gefüllt



  lblAdresse.Caption = Rst!Strasse

  lblStadt.Caption = Rst!Adresse

  lblPhone.Caption = Rst!Telefonnummer

  lblFax.Caption = Rst!Faxnummer



End Sub





Code eingefügt mit Syntaxhighlighter 4.0







Aber wie geht es mit richtigen SQL Datenbanken??



Ich muss der DB bestimmt ja erstmal meine Anmeldeinformationen mitgeben (in meinem Fall ist das die Win-Authent.) Der Server und die Instanz muss ja bestimmt auch irgendwo angegebne werden, oder??





Ich bin für jeden Hinweiß dankbar!
It´s not a bug, it´s a feature

geschrieben von xorx , 21.10.2006, 15:56 Uhr , 111 mal gelesen