Hi all,

I had already seen this project https://support.industry.siemens.com/cs/cn/en/view/61883659

But in my case, i already had a database and a table in sql server management. I want to add them into vb script without using tag. Tks a lot  

Hi tamdang!

I suggest you to read about ADODB since that is the VBScript way of connecting to databases and I have used it without problem (as long as I write correct code ) but for a quick example of what a connection in it's minimal form could look like I'll wirte it below:

Dim conn 'Declare local variable.

Set conn = CreateObject("ADODB.Connection") 'Create the connection object. 

conne.Open "Driver={SQL Server};Server=myServerAddress;Database=myDataBase;Uid=myUsername;
Pwd=myPassword;" 'Open a connection using a valid connection string.

Connection.Execute("INSERT INTO World (command, string) VALUES ('say', 'hello'), ('say', 'world');") 'Some SQL query.

conn.Close 'Close the connection.

Set conn = Nothing 'Mark the connection object for "destruction".

If i'd like to fetch some data I use this:

Dim recSet, cmd, str 'Declare local variables.

Set recSet = CreateObject("ADODB.Recordset") 'Create the recordset object.

recSet.Open "SELECT * FROM World;", "Driver={SQL Server};Server=myServerAddress;Database=myDataBase;Uid=myUsername;
Pwd=myPassword;", 3 'Open a recordset containing the result of the query. Mode 3 enables me to use recSet.RecordCount to know how many rows the query resulted in.

If Not (recSet.EOF And recSet.BOF) Then 'If not empty.

For i = 1 To recSet.RecordCount 'Loop through all rows.

cmd = recSet.Fields("command").Value 'Do something with the data.

str = recSet.Fields("string").Value

recSet.MoveNext 'Move to the next row.

Next

End If

recSet.Close 'Close the recordset.

Set recSet = Nothing 'Mark the recordset object for "destruction"

I also almost always use error checking after opening and executing the connections and queries: