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.
Wie mache ich jetzt das mit einer BindingSource und geht das überhaupt mit VBS?
Beste Grüsse und großen Dank im Voraus.
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
'--- 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.
