Hi,

I want to make a simple VBS file, which I then can run on the server so it can update every 5 min the DB.

As I am totally new to VBS, I was wodering how can I connect to the ODBC?

Any help is welcome,

Johny

Thx

Typically you will use ADO, which provides objects for connecting to and accessing databases - most typically relational (and pseudo relational) databases such as SqlServer, Oracle, Access, and MySql.

You will need to search the internet for examples on how to do this, as it is a bit much to describe here. Also, WROX (you have heard of them, I bet?) and other publishers have books on the subject.

You essentially need to at least instantiate a connection object, open it, and then execute sql against the database of that connection.
You can also optionally use a command object.

Anyway - there are literaly hundreds of resource on the intenet, and also many used books are available at very very very low prices at places like Half.com and Amazon

Woody Z http://www.learntoprogramnow.com

Hi Woodyz,

thx for the reply.

Connecting to the DB in ASP is no problem. Althought using VB is a mistery. I tied several exampls in the net, but none made it possible.

Maybe you can help me with my code:

Dim conn
set conn=CreateObject("ADODB.Connection")
conn.provider="FARMAEUROPA"
conn.open "FARMA"
set rs = Server.CreateObject("ADODB.Recordset")
sql="Select distinct codigoempleado FROM cintasempleados WHERE activo=1"
rs.open sql,conn
rs.close
MsgBox "Done"



Thx,

Johny

Hi,

I have lready solved the problem.
the right code is, if anybody would like to know ;)

Dim conn
set conn=CreateObject("ADODB.Connection")
conn.open "DSN=FARMA"
set rs = CreateObject("ADODB.Recordset")
sql="Select * FROM cintasempleados WHERE activo=1"
rs.open sql,conn

HTH for people out there like me.

Now I can finally update the DB every 5 minutes.....

thx

Johny

If you want to connect your DATABASE throw DSN. It is required that you first made DSN by ODBC in Control Panel.

Another way to connect to DATABASE in VB is to Add Reference of Microsoft ADODC in Your Project.

After it you can make a Connection like

Dim cn as new ADODB.Connection

Dim rs as new ADODB.Recordset 'then make a Record set.

cn.open "Driver={MYSQL ODBC 3.51 Driver};Server=localhost;
          Port=3306;Option=131072;Stmt=;Database=NameOfDatab ase;
          Uid=root;Pwd=;"

set rs=cn.execute("Select id,name from employee")

At the Place of Select you can write your Query and now
Recordset rs will indicate your Query's result.