'導入命名空間Imports System.Data.SqlClient '定義變量 Dim Sql As String 'SQL字串 Dim Sqlado As SqlConnection '连接数据库 Dim CmdVB As SqlCommand '对数据源执行SQL命令并返回数据 Dim drVB As SqlDataReader '读取和处理数据源的数据 '打开ADO連線 Public Sub OpenADO() Sqlado = New SqlConnection("Password…
'導入命名空間Imports System.Data.OleDb '定義變量 Dim Sql As String 'OleDb連線 Dim SqlAC As OleDbConnection Dim CmdAC As OleDbCommand Dim drAC As OleDbDataReader '打开OleDb連線 Public Sub OpenAC() SqlAC = New OleDbConnection(" Provider = Microsoft.Jet.OLEDB.4.0;Data…
Imports Oracle.DataAccess.Client '導入命名空間 Public Class Form1 Dim Sql As String Public SqlTP As OracleConnection = New OracleConnection("Password= ""密碼"";Persist Security Info=True;User ID=帳號;Data Source=資料庫") Public CmdTP As N…