.Net Control mit Bindingsource in VBS

  • VBScript

    .Net Control mit Bindingsource in VBS

    Guten Tag,

    Ich muss demnächst in einem Projekt eine kleine Datenbank Applikation erstellen. Bei dem GUI handelt es sich um eine Visualisierungs Software in welcher .Net Controls eingebettet und über VB Script angesprochen / programmiert werden können. Bei dem .Net Control handelt es sich um ein Daten Grid welches, gemäß dem Hersteller, eine Bindingsource als Datenquelle verwendet. Normaler Weise, würde ich die Daten, wie folgend, vom SQL-Server abrufen und dann entsprechend abfüllen.


    '--- Verbindungsinformationen erzeugen
    strConnectionString = "Provider=SQLOLEDB.1; Integrated Security=SSPI; Persist Security Info=False; Initial Catalog=AppData; Data Source=cr25\App"

    '--- DB verbinden, oeffnen
    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.ConnectionString = strConnectionString
    objConnection.CursorLocation = 3
    objConnection.Open

    '--- Recordset, oeffnen
    Set objCommand = CreateObject("ADODB.Command")
    objCommand.CommandType = 1
    Set objCommand.ActiveConnection = objConnection
    objCommand.CommandText = "SELECT * FROM Table"
    Set objRecordset = CreateObject("ADODB.Recordset")
    Set objRecordset = objCommand.Execute



    Wie mache ich jetzt das mit einer BindingSource und geht das überhaupt mit VBS?

    Beste Grüsse und großen Dank im Voraus.