Publish date: 2004-08-10

Getting data from database (VB)

<html>
<title>Test</title>
<body>
<%
 Dim Conn
 Dim Cmd
 Dim Row
 Set Conn = Server.CreateObject("ADODB.Connection")
 Set Cmd  = Server.CreateObject("ADODB.Command")

 Conn.Provider = "LCPI.IBProvider"
 Conn.Open "data source=localhost:e:\database\Employee.gdb;ctype=win1251", "sysdba", "masterkey"


 Conn.BeginTrans

 Cmd.ActiveConnection = Conn
 Cmd.CommandText = "select full_name from employee order by emp_no"

 Set Row = Cmd.Execute

 While Not Row.Eof
   Response.Write CStr(Row(0)) & "<br>"
   Row.MoveNext
 Wend

 Conn.CommitTrans
%>
</body>
</html>
All examples