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…
'導入命名空間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…