Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
   
 

Registered : 96,949

 
HOME > .NET Framework > Forum > จะ connect กับ Oracle 10g express ยังไงค่ะ(VBnet)
 

จะ connect กับ Oracle 10g express ยังไงค่ะ(VBnet)

 



Topic : 025053



โพสกระทู้ ( 3 )
บทความ ( 0 )



สถานะออฟไลน์




Code (VB.NET)
[code][/code]



Tag : - - - -







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2009-02-28 04:21:44 By : Forum9 View : 2143 Reply : 2
 

 

No. 1



โพสกระทู้ ( 3 )
บทความ ( 0 )



สถานะออฟไลน์


ตรงที่มีเครื่องหมาย ***คือจุดที่ยังผิดอะค่ะ


Imports ORA10gclient.ORA10gclient
Imports LDAPConnection


Partial Class Project2_Login
Inherits System.Web.UI.Page

Private prDbConnection As New ORAConnection *** 'Connection Oracle 10g
Private prDbTransaction As OracleTransaction*** 'Obj SQL Transaction


Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Try
'Connect Database
prDbConnection.CommandConnect = Session.Item("ConnectionString").ToString
prDbConnection.Connection()
Catch ex As Exception
MessageBox.ShowAlert_VBError(Err.Number, Err.Description)

End Try


End Sub

Protected Sub bt_submit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bt_submit.Click
Dim str_sqlCommand As String 'คำสั่ง SQL Command
Dim da_UserLogin As Ora10gClient.OracleDataAdapter**** 'Data Adapter
Dim dt_UserLogin As New Data.DataTable
Dim da_DateString As Ora10gClient.OracleDataAdapter **** 'Data Adapter
Dim dt_DateString As New Data.DataTable
Dim LDAPCon As New LDAP
'กำหนดค่าการ Connect LDAP
LDAPCon.Authentication = DirectoryServices.AuthenticationTypes.None
LDAPCon.IPAddressServer = "202.28.68.94"
LDAPCon.Port = "389"
LDAPCon.Domain = "o=walailak,c=TH"
LDAPCon.UserName = tx_user.Text.ToString
LDAPCon.Password = tx_password.Text.ToString
LDAPCon.Connection()
If LDAPCon.ValidUser Then

'คำสั่ง SQL Command เลือกผู้ใช้งานตาม Username และ Password
str_sqlCommand = "SELECT pre.PrefixTHName,per.FNameThai,per.LNameThai,per.PersonID,Per.PersonCode,per.divid " & _
"FROM DBAPBL.PBL_Prefix pre, DBAPBL.PBL_vPerson per " & _
"WHERE per.PrefixID = pre.PrefixID And per.ENDDATE Is NULL " & _
"AND per.EMAIL = '" & LDAPCon.MailAddress & "'"
da_UserLogin = New Data.SqlClient.SqlDataAdapter(str_sqlCommand, db_Connection.dbConnecting)
da_UserLogin.Fill(dt_UserLogin)

'เก็บข้อมูล Session.Item("User"),Session.Item("LoginSuccess"),Session.Item("UserID")
'Session.Item("UserCode"),Redirect to frm_PersonResume.aspx
If dt_UserLogin.Rows.Count = 1 Then
'กำหนดค่า ชื่อสกุล ผู้ใช้งานให้ Session User
Session.Item("User") = dt_UserLogin.Rows(0).Item("PrefixTHName").ToString & " " & dt_UserLogin.Rows(0).Item("FNameThai").ToString & " " & dt_UserLogin.Rows(0).Item("LNameThai").ToString
Session.Item("LoginSuccess") = True
Session.Item("UserID") = dt_UserLogin.Rows(0).Item("PersonID").ToString
Session.Item("UserCode") = dt_UserLogin.Rows(0).Item("PersonCode").ToString
Session.Item("DivID") = dt_UserLogin.Rows(0).Item("divid").ToString
Session.Item("EMail") = LDAPCon.MailAddress
'คำสั่ง SQL Command ข้อมูลวันที่จากเครื่อง
str_sqlCommand = "select to_char(sysdate,'yyyymmdd') as strDate from dual"
da_DateString = New ORA10gclient.OracleDataAdapter*******(str_sqlCommand, db_Connection.dbConnecting)
da_DateString.Fill(dt_DateString)
Session.Item("datestring") = dt_DateString.Rows(0).Item("strDate").ToString
Session.Item("datestringBE") = fpbChangeYear(Session.Item("datestring"), "BE")
'MessageBox.ShowAlert(Session.Item("UserID") & " " & Session.Item("UserCode") & " " & Session.Item("User"))
Response.Redirect("Welcome.aspx", False)
Else
MessageBox.ShowAlert("คุณไม่มีสิทธิ์เข้าใช้งานระบบ กรุณาตรวจสอบฝ่ายการเจ้าหน้าที่")
End If 'If ds_UserLogin.Tables("UserLogin").Rows.Count = 1
Else
MessageBox.ShowAlert("ชื่อผู้ใช้ หรือ รหัสผ่าน ไม่ถูกต้องกรุณาป้อนข้อมูลใหม่")
End If 'If LDAPCon.ValidUser

End Sub

Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload
Try
If Not (prDbConnection Is Nothing) Then
prDbConnection.Disconnection()
End If
Catch ex As Exception
MessageBox.ShowAlert_VBError(Err.Number, Err.Description)
End Try
End Sub
End Class








Date : 2009-02-28 04:30:11 By : Forum9
 


 

No. 2

Guest


ติดตั้ง OracleClient หรือยัง ครับ เป็นนามสกุล .dll แล้วเอาไปวาง ใน System หลังจากนั้น ก๊
ไปที่ Vb.net แล้ว set จาก .net Tool เข้ามาเพื่อให้มัน Require ได้ ลองดูนะครับ ผมแนะได้แค่นี้ละ
Date : 2011-11-02 21:53:04 By : nontiwat
 



ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : จะ connect กับ Oracle 10g express ยังไงค่ะ(VBnet)
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







เว็บไซต์เพื่อนพี่น้อง : Voake , LampThai , Memory Server

Load balance : Server TC-00
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2013 All Rights Reserved.
for Contact Us : [Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 , 084-715-5121 อัตราราคา คลิกที่นี่

Inline

Back to Top