| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 Simple connection string for Oracle DB. First you need configure tnsnames.ora file. Also you need a reference to ADO in your vb project. Change the user name, password and service name to what you are using. \par \par 'Declarations: \par Dim Cn As ADODB.Connection \par Dim CP As ADODB.Command \par Dim Rs As ADODB.Recordset \par Dim Conn As String \par Dim QSQL As String \par \par 'Code: \par 'Connect to Oracele server begin \par Conn = "DRIVER=\{ORACLE ODBC DRIVER\};SERVER=Service name;UID=username;PWD=password;DBQ=Service name;DBA=W;APA=T;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;FRL=F;MTS=F;CSR=F;PFC=10;TLO=O;" \par \par Set Cn = New ADODB.Connection \par \par With Cn \par .ConnectionString = Conn \par .CursorLocation = adUseClient \par .Open \par End With \par \par If Cn.State = adStateOpen Then \par MsgBox "Connection successful." \par End If \par \par 'Connect to Oracle server end \par \par \par 'close connection begin \par Cn.Close \par Set Cn = Nothing \par Set CP = Nothing \par 'close connection end \par } |
Connect to an Oracle DB Using ADO |
India web developer web development India | India web development company India ecommerce web developer