Imports Oracle.DataAccess.Client
Public Class Form1 Private oradb As String = "Data Source=(DESCRIPTION=" _ + "(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=aixxxxx)(PORT=1521)))" _ + "(CONNECT_DATA=(SERVER=DEDICATED)(SID=xxxxx)));" _ + "User Id=xxxx;Password=xxxx;"
Private conn As OracleConnection = New OracleConnection
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try conn.ConnectionString = oradb conn.Open() Dim cmd As OracleCommand Dim dr As OracleDataReader Dim sql As String sql = "select * from DIM_XXX where FISC_DATE = to_date('062209','MMDDYY')" cmd = New OracleCommand(sql, conn) cmd.CommandType = CommandType.Text
dr = cmd.ExecuteReader ' Visual Basic dr.Read() Dim iDayID As Integer = dr.Item("DAY_ID")
sql = "select STORE_ID from DIM_yyyy where STORE_NBR = 123" ' VB.NET cmd = New OracleCommand(sql, conn) cmd.CommandType = CommandType.Text dr = cmd.ExecuteReader ' Visual Basic dr.Read() Dim iStoreID As Integer = dr.Item("STORE_ID")
sql = "INSERT INTO FACT_zzzzz (DAY_ID, STORE_ID, SEQ_ID, POS_NUM, POS_REBOOT_DATE_TIME, POS_REBOOT_RECORDED_TMS)VALUES (20090622,00219,fact_pos_metric_daily_seq.nextval,01,to_date('090622 21:02:45','YYMMDD hh24:mi:ss'),to_date('090622 21:02:55','YYMMDD hh24:mi:ss'))" cmd = New OracleCommand(sql, conn) cmd.CommandType = CommandType.Text Dim iR As Integer iR = cmd.ExecuteNonQuery ' Visual Basic
'sql = "select * from FACT_zzzzz where STORE_ID = 456" ' VB.NET sql = "SELECT z, x, TO_CHAR(REBOOT_DATE_TIME, 'dd-mon-yyyy hh24:mi:ss'),TO_CHAR(REBOOT_RECORDED_TMS, 'dd-mon-yyyy hh24:mi:ss') from FACT_POS_METRIC_DAILY" ' VB.NET cmd = New OracleCommand(sql, conn) cmd.CommandType = CommandType.Text dr = cmd.ExecuteReader ' Visual Basic dr.Read() Dim I As Integer = dr.Item(0) Dim s1 As String = dr.Item(1) Dim s2 As String = dr.Item(2) Dim s3 As String = dr.Item(3) Dim dtDateTime As DateTime = dr.Item(4) Dim sD As String = dtDateTime.ToString("yyyy/MM/dd hh:mm:ss") Dim dtDateTime1 As DateTime = dr.Item(5) dr.Dispose() cmd.Dispose() conn.Dispose()
Catch ex As Exception MessageBox.Show(ex.Message.ToString())
End Try End SubEnd Class
