Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- "PROVIDER=SQLOLEDB.1;PASSWORD=12345;PERSIST SECURITY INFO=TRUE;USER ID=username;INITIAL CATALOG=DBName;DATA SOURCE=Server;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;"
- Dim conn As ADODB.Connection
- Dim cmd As ADODB.Command
- Set conn = New ADODB.Connection
- Set cmd = New ADODB.Command
- login = ...
- pass = ...
- conn.Open "Provider=OraOLEDB.Oracle.1;Password=" & pass & ";Persist Security Info=True;User ID=" & login & ";Data Source=..."
- conn.BeginTrans
- cmd.ActiveConnection = conn
- ...
- createTable = "create table test (id integer, name varchar(256))"
- cmd.CommandText = createTable
- cmd.Execute
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement