Imports System Imports System.Data Imports System.Data.OleDb Public Class oledb
Function condb(ByVal constr, ByVal sql) Dim con As OleDbConnection Dim dad As OleDbDataAdapter Dim dst As New DataSet() con = New OleDbConnection(constr) dad = New OleDbDataAdapter(sql, con) dad.Fill(dst, "table")
End FunctionEnd ClassC:\WINNT\Microsoft.NET\Framework\v1.0.3705\vbc /t:library /r:system.dll,system.data.dll,System.Xml.dll C:\Inetpub\wwwroot\ex1\oledb.vb
C:\WINNT\Microsoft.NET\Framework\v1.0.3705\vbc /r:system.dll,system.data.dll C:\Inetpub\wwwroot\ex1\oledb.vb
Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class oledb
Function condb(ByVal constr, ByVal sql)
Dim con As OleDbConnection
Dim dad As OleDbDataAdapter
Dim dst As New DataSet()
con = New OleDbConnection(constr)
dad = New OleDbDataAdapter(sql, con)
dad.Fill(dst, "table")
End FunctionEnd ClassC:\WINNT\Microsoft.NET\Framework\v1.0.3705\vbc /t:library /r:system.dll,system.data.dll,System.Xml.dll C:\Inetpub\wwwroot\ex1\oledb.vb