orcal&sqlserver net

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Public Class WebForm1
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button
    Protected WithEvents Button3 As System.Web.UI.WebControls.Button
    Protected WithEvents Button4 As System.Web.UI.WebControls.Button

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Response.Write("hello")

        'user id=gemtek_line1;data source=GEMTEK_SFCS_KS;password=jackjai
        ' Dim con As OleDbConnection = New OleDbConnection("Provider=SQLOLEDB;Data Source=10.4.1.25;Database=webflow;UID=sa;PWD=gemteksa;")
        Dim con As SqlConnection = New SqlConnection("Data Source=10.4.1.25;Database=webflow;UID=sa;PWD=gemteksa;")
        Dim sql As String = "select * from users"
        Dim adap As SqlDataAdapter = New SqlDataAdapter(sql, con)
        Dim ds As DataSet = New DataSet
        adap.Fill(ds, "users")
        DataGrid1.DataSource = ds.Tables("users")
        DataGrid1.DataBind()
        con.Close()

    End Sub

    Private Sub OracleConnection1_InfoMessage(ByVal sender As System.Object, ByVal e As System.Data.OracleClient.OracleInfoMessageEventArgs)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim oleconn As OleDbConnection = New OleDbConnection("Provider=OraOLEDB.Oracle.1;Persist   Security   Info=False;user id=gemtek_line1;data source=GEMTEK_SFCS_KS;password=jackjai;")
        Dim sql As String = "select * from aaa"

        Dim dapt As OleDbDataAdapter = New OleDbDataAdapter(sql, oleconn)
        Dim ds As DataSet = New DataSet
        dapt.Fill(ds, "aaa")

        DataGrid1.DataSource = ds.Tables(0).DefaultView

        DataGrid1.DataBind()
        oleconn.Close()

 

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim con As OleDbConnection = New OleDbConnection("Provider=SQLOLEDB;Data Source=10.4.1.25;Database=webflow;UID=sa;PWD=gemteksa;")

        Dim sql As String = "select * from users"
        Dim adap As OleDbDataAdapter = New OleDbDataAdapter(sql, con)

        Dim ds As DataSet = New DataSet
        adap.Fill(ds, "users")
        DataGrid1.DataSource = ds.Tables("users")
        DataGrid1.DataBind()
        con.Close()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim orconn As OracleClient.OracleConnection = New OracleClient.OracleConnection("user id=gemtek_line1;data source=GEMTEK_SFCS_KS;password=jackjai")
        Dim sql As String = "select * from aaa"
        Dim dapt As OracleClient.OracleDataAdapter = New OracleClient.OracleDataAdapter(sql, orconn)
        Dim ds As DataSet = New DataSet
 

 
        dapt.Fill(ds, "aaa")

        DataGrid1.DataSource = ds.Tables(0).DefaultView

        DataGrid1.DataBind()
        orconn.Close()

    End Sub
End Class