หน้าแรก
 การบ้าน
  C/C++ new
  Java new
 Sourcecode.TV
  Android
  Blackberry
  C/C++
  Java
  Linux
  Windows Phone
  แจ้งเรื่องที่ต้องการ
 บทความ
  .NET
  Android
  Blackberry
  C++Builder
  Delphi
  Java
  Mobile
  Open Source
  Pocket PC
  Visual Basic
  Web
  Windows Phone
  Others
 แบบเรียนฟรี
  ASP
  ASP.NET Webmatrix
  C++
  eVB
  J2ME
  Java
  PHP
 ซอร์สโค้ด
  Android
  ASP
  C++
  VC++
  CGI-Perl
  Delphi
  Java
  jQuery
  PHP
  Visual Basic
  .NET
 บริการจากเรา
  เปิดท้าย... ขายโค้ด
  DoodeeHosting
  รับออกแบบ พัฒนาเว็บไซต์
  Freeware
  อัตราค่าโฆษณา
  รายชื่อลูกค้า
  สถิติผู้เข้าเว็บ
 ดาว์นโหลด
 ค้นหาข้อมูล
 กระดานสนทนา
  .NET
  C/C++
  Delphi
  Java
  Palm/PocketPC
  Visual Basic
  Web
  อื่นๆ
 กระดานงาน
 ลิงค์เว็บ
 เกี่ยวกับผม
 อัตราค่าโฆษณา
Social Network

Facebook  Twitter  YouTube
 New Article
 Webboard
 Freelanceboard
Freeware
โปรแกรมเบอร์ดี (BerDee)
โปรแกรมเบอร์ดี (Android)
เกมส์เป่ายิ้งฉุบ
เกมส์เป่ายิ้งฉุบ(Android)
WebcamMonitor
WebcamMonitor(Windows)
scSendMail
scSendMail(Windows)
MSN Caption
MSN Caption(Windows)
  Freelance comment
  ติดต่อสอบถามมาได้ตลอดนะ...
2015-07-29 13:35:58
  ถ้าผมต้องการเว็บที่พัฒน...
2015-01-18 15:33:54
  ถ้าผมต้องการเว็บที่พัฒน...
2015-01-18 15:32:51
  ติดต่อสอบถามเข้ามาได้นะ...
2014-01-06 12:47:38
  ถ้ายังหาคนสอนไม่ได้ ก็ลอ...
2013-07-06 01:04:37
  สนใจส่งขอบเขตมาคุยราคาก...
2013-03-24 18:54:20
  ถ้ายังไม่มีคนรับงานติดต...
2012-12-16 19:18:14
  สนใจคะ ติดต่อ 0905076277...
2012-11-12 11:07:46
  รับทำโปรเจ็คนักศึกษาหรื...
2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  พอดีผมเห...
2020-05-31 21:49:43
  ช่วย แสดง...
2020-04-27 11:21:00
  ได้การบ้...
2020-04-27 11:18:56
  ได้การบ้...
2020-04-27 11:02:44
  <a href="https://www.g...
2020-03-10 17:07:03
  ไม่อยากเ...
2020-03-10 17:05:36
  ขอโคํดเก...
2020-02-09 22:50:58
  ขอโค้ดเก...
2020-01-28 23:42:26
  uuu...
2020-01-24 11:54:34
  ก็ต้องลง ...
2019-10-22 01:56:28
  Homework comment
  โจทย์การบ้าน c++ เขียนรูปแ...
2020-04-06 11:01:33
  แบบนี้ขอเป็น ภาษา php หน่อย...
2019-09-18 14:36:34
  ผมไม่อยากให้คุณได้คะแนน...
2019-04-27 01:29:07
  อาจารย์เขาบอกแนวข้อสอบม...
2019-04-27 00:44:29
  ขอสอบถามการเขียน c++ ครับ เ...
2018-04-02 12:19:21
  โค้ดตัวอย่างศึกษาให้เข้...
2017-11-26 14:50:05
  คำนวณค่าน้ำโดยรับค่ามิเ...
2017-11-20 23:15:26
  ขอบคุณมากครับ...
2017-08-16 18:27:25
  ทำเอง งง เอง กะลังทำใหม่ค...
2017-04-18 18:40:46
  ทำเอง งง เอง กะลังทำใหม่ค...
2017-04-18 18:37:54
  Article comment
  ต้องการ ให้เขียน โปรแกรม ...
2019-12-09 11:39:58
  รับเขียน arx จาก vc++ 2017 ล็อคโปร...
2019-09-19 09:48:09
  ทำการ register ไฟล์ที่ชื่อ mswinsck.oc...
2019-09-17 14:05:56
  ใน vb 6 ไม่มี component winsock เลยค่ะ ส...
2019-09-03 10:31:02
  รบกวนขอสอบถามหน่อยนะครั...
2019-03-04 05:31:04
  สามารถนำตัวหนังสือจากภา...
2018-12-25 08:54:32
  มีcode ของ VB ไหมค่ะ ถ้ามีรบกว...
2017-09-28 16:50:02
  น่าจะได้ครับ ไม่เคยลอง
...

2017-07-11 09:59:35
  สามารถใช้ต่อกับ anycast ได้ไห...
2017-07-05 10:12:35
  ครับ คุณ "ติด" แล้วลองนึกต...
2016-06-18 15:21:09
  9Mcode comment
  อยากได้...
2014-02-21 08:52:19

Link Exchange

อัตราค่าโฆษณา
Statistics of Sourcecode in Thailand
 
 Webboard

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

กระทู้ #1374 [.NET]

ขอวิธีให้สามารถ run Code VB2005 โดยเก็บ Code ไว้บน Server ครับ

เขียนโปรแกรมเสร็จแล้ว สามารถ run บนเครื่องตัวเองได้ โดยไม่มีปัญหาอะไร แต่เมื่อเอา Code ไปเก็บไว้บนเครื่อง Server(เป็นวง Lan) แล้วจะ run มันไม่สามารถรันผ่านได้ครับ

ใครรู้หรือเคยเจอปัญหาแล้วแก้ได้ ช่วยด้วยน่ะครับ
ขอบคุณครับ
จากคุณ : Giant_B [2007-09-12 14:53:14]  

58.8.182.195 ความคิดเห็น #25976 (จาก IP: 58.8.182.195)
ไม่ผ่านอย่างไร และยังไง บอกหน่อยครับ บอกไม่ละเอียดใครจะตอบคุณได้
จากคุณ : หมอดู [2007-09-12 21:34:25]

125.24.223.4 ความคิดเห็น #25979 (จาก IP: 125.24.223.4)
มันขึ้นว่า
System.Security.SecurityException was unhandled
Message="That assembly does not allow partially trusted callers."
Source="ConnectSQL"
StackTrace:
at System.Security.CodeAccessSecurityEngine.ThrowSecurityException(Assembly asm, PermissionSet granted, PermissionSet refused, RuntimeMethodHandle rmh, SecurityAction action, Object demand, IPermission permThatFailed)
at ConnectSQL.clsConnect..ctor()
at ConnectSQL.FrmMain.FrmMain_Load(Object eventSender, EventArgs eventArgs)
at System.Windows.Forms.Form.OnLoad(EventArgs e)
at System.Windows.Forms.Form.OnCreateControl()
at System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
at System.Windows.Forms.Control.CreateControl()
at System.Windows.Forms.Control.WmShowWindow(Message& m)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ScrollableControl.WndProc(Message& m)
at System.Windows.Forms.ContainerControl.WndProc(Message& m)
at System.Windows.Forms.Form.WmShowWindow(Message& m)
at System.Windows.Forms.Form.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.SendMessage(HandleRef hWnd, Int32 msg, Int32 wParam, Int32 lParam)
at System.Windows.Forms.Form.SetVisibleCore(Boolean value)
at System.Windows.Forms.Control.set_Visible(Boolean value)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.Run(Form mainForm)
at ConnectSQL.FrmMain.Main()
at System.AppDomain.nExecuteAssembly(Assembly assembly, String[] args)
at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
at System.Threading.ExecutionContext.runTryCode(Object userData)
at System.Runtime.CompilerServices.RuntimeHelpers.ExecuteCodeWithGuaranteedCleanup(TryCode code, CleanupCode backoutCode, Object userData)
at System.Threading.ExecutionContext.RunInternal(ExecutionContext executionContext, ContextCallback callback, Object state)
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
at System.Threading.ThreadHelper.ThreadStart()
จากคุณ : Giant_B [2007-09-13 09:48:27]

125.24.223.4 ความคิดเห็น #25980 (จาก IP: 125.24.223.4)
ถ้าเอา Code ที่เขียนเก็บไว้บนเครื่อง แล้วเปิดโปรแกรม vb2005 แล้วสั่งรัน จะสามารถใช้งานได้ปรกติ แต่เมื่อเอา copy Code ที่เขียนได้ ไปเก็บไว้ใน Server แล้วเปิด vb2005 มาแล้วสั่งรัน ก็จะไม่ผ่าน และขึ้นว่า
System.Security.SecurityException was unhandled
ตามรายละเอียดด้านบนครับ
จากคุณ : Giant_B [2007-09-13 09:54:20]

203.146.147.190 ความคิดเห็น #25982 (จาก IP: 203.146.147.190)
You need to adjust the security.

Open the Control Panel
Open Administrative tools
Open Microsoft .Net Framework 1.1 Wizards
Click Adjust .Net Security
click Next
Select Local Intranet
Change the level of trust to Full
click next
click Finish
จากคุณ : sup98 [2007-09-13 13:39:09]

125.25.29.238 ความคิดเห็น #26095 (จาก IP: 125.25.29.238)
คือว่า อยากทราบรายละเอียดของคำสั่งของการคอนเน็คกับดาต้าเบส โดยเป็นคำสั่งการค้นหาจากเทคบ็อกและแสดงรายละเอียดในDataGridView ใครทราบรายละเอียดช่วยบอกหน่อยค่ะ
จากคุณ : กรุณาช่วยหน่อยค่ะ [2007-09-29 00:24:40]

125.25.29.238 ความคิดเห็น #26096 (จาก IP: 125.25.29.238)
คือว่า อยากทราบรายละเอียดของคำสั่งของการคอนเน็คกับดาต้าเบส โดยเป็นคำสั่งการค้นหาจากเทคบ็อกและแสดงรายละเอียดในDataGridView ใครทราบรายละเอียดช่วยบอกหน่อยค่ะ
จากคุณ : กรุณาช่วยหน่อยค่ะ [2007-09-29 00:25:51]

58.9.108.232 ความคิดเห็น #26268 (จาก IP: 58.9.108.232)
พอดีหนูทำโปรเจ็คจบเกี่ยวกับการทำอินเตอร์คาเฟ่หนูผยายามทำเป็นเดือนแล้วแต่ก็ยังไม่สำเร็จหนูจึงขอความกรุณาจากทุกท่านช่วยแนะนำด้วยนะค่ะขอบคุณค่ะ
nong010535546@hotmail.com
จากคุณ : nongning / nong010535546@hotmail.com [2007-11-22 13:54:00]

58.9.108.232 ความคิดเห็น #26269 (จาก IP: 58.9.108.232)
พอดีหนูทำโปรเจ็คจบเกี่ยวกับการทำอินเตอร์คาเฟ่หนูผยายามทำเป็นเดือนแล้วแต่ก็ยังไม่สำเร็จหนูจึงขอความกรุณาจากทุกท่านช่วยแนะนำด้วยนะค่ะขอบคุณค่ะ
nong010535546@hotmail.com
จากคุณ : nongning4 / nong010535546@hotmail.com [2007-11-22 14:00:19]

222.123.117.187 ความคิดเห็น #26688 (จาก IP: 222.123.117.187)
คือผมต้องการให้ตาราง 2 ตารางมันทำงานคนละแบบกันนะคับ ผมทำแบบนี้แต่ปากดว่า มัน
ขึ้นเหมือนกันเลยคับ เวลา RuN

Imports System.Data
Imports System.Data.OleDb
Public Class frmpcanduser
Dim conn As New OleDbConnection
Dim bs As New BindingSource
Dim da As OleDbDataAdapter
Dim ds As New DataSet

Dim dd As Boolean = False
Public a As String
Dim gg As Boolean = False
Dim qq As Boolean = False
Dim aa As Boolean = False
Private Sub frmpcanduser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
grid()
gridspare()

End Sub

Private Sub grid()
With conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strcon
.Open()
End With

Dim sql1
sql1 = "select * from mpc where m_st ='1'"
da = New OleDbDataAdapter(sql1, conn)
da.Fill(ds, "mpc")
DataGridView1.DataSource = ds.Tables("mpc")
dd = True
conn.Close()
End Sub

Private Sub gridspare()
With conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strcon
.Open()
End With

Dim sql2
sql2 = "select * from mpc where m_st ='2'"
da = New OleDbDataAdapter(sql2, conn)
da.Fill(ds, "mpc")
DataGridView2.DataSource = ds.Tables("mpc")

dd = True
conn.Close()
End Sub

ขอรบกวนผู้รู้ด้วยนะคับ ขอบคุณคับ
จากคุณ : นฤดล / dollyeazy@hotmail.com [2008-04-14 17:48:16]

118.172.116.3 ความคิดเห็น #27011 (จาก IP: 118.172.116.3)
ค้นหาชื่อเสร็จแล้วมันไมโชว์ข้อมูลที่ค้นหาอ่ะคับ ช่วยหน่อยคับ

Imports System.Text
Imports System.Data.OleDb
Public Class Form1
Const DATABASE_FILE As String = "C:\Program Files\Maejo University\BITINFORMATION\DBBit.mdb"
'Const DATABASE_FILE As String = "C:\DBBit.mdb"
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & DATABASE_FILE
Dim cn As New OleDbConnection(strConn)
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim sb As New StringBuilder()
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
Dim WithEvents objCurrencyManager As CurrencyManager

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strSQL As String = " Select * From student"
da.SelectCommand = New OleDbCommand(strSQL, cn)
Try
da.Fill(ds, "student")

Catch ex As Exception
MsgBox(ex.Message)

End Try
txtStudent.DataBindings.Add("text", ds.Tables("student"), "stu_id")
cmbTitleName.DataBindings.Add("text", ds.Tables("student"), "title_name")
txtName.DataBindings.Add("text", ds.Tables("student"), "stu_name")
txtLastName.DataBindings.Add("text", ds.Tables("student"), "stu_lname")
txtNickname.DataBindings.Add("text", ds.Tables("student"), "nickname")
cmbSex.DataBindings.Add("text", ds.Tables("student"), "sex")
cmbYear.DataBindings.Add("text", ds.Tables("student"), "year")
cmbMajor.DataBindings.Add("text", ds.Tables("student"), "major")
dtpBirthDate.DataBindings.Add("text", ds.Tables("student"), "birthdate")
txtEmail.DataBindings.Add("text", ds.Tables("student"), "email")
mtbPhone.DataBindings.Add("text", ds.Tables("student"), "phone")
txtAddress.DataBindings.Add("text", ds.Tables("student"), "address")
txtDistrict.DataBindings.Add("text", ds.Tables("student"), "district")
cmbProvince.DataBindings.Add("text", ds.Tables("student"), "province")
txtZipcode.DataBindings.Add("text", ds.Tables("student"), "zipcode")
ptbShow.DataBindings.Add("image", ds.Tables("student"), "picture", True)

DataGridView1.DataSource = ds.Tables("student")

objCurrencyManager = Me.BindingContext(ds.Tables("student"))
objCurrencyManager_PositionChanged(Nothing, Nothing)

End Sub

Private Sub objCurrencyManager_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles objCurrencyManager.PositionChanged
If objCurrencyManager.Position = 0 Then
ptbMovePrevious.Enabled = False
ptbMoveFirst.Enabled = False
Else
ptbMovePrevious.Enabled = True
ptbMoveFirst.Enabled = True
End If

If objCurrencyManager.Position = objCurrencyManager.Count - 1 Then
ptbMoveLast.Enabled = False
ptbMoveNext.Enabled = False
End If

Label2.Text = "เรคอร์ดที่" & objCurrencyManager.Position + 1 & "จากทั้งหมด" & objCurrencyManager.Count & "เรคอร์ด"
End Sub

Private Sub ptbAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ptbAdd.Click
objCurrencyManager.AddNew()
txtStudent.Focus()
End Sub

Private Sub ptbDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ptbDelete.Click
If MsgBox("คุณแน่ใจหรือว่าต้องการลบเรคอร์ดนี้ ? ", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
objCurrencyManager.RemoveAt(objCurrencyManager.Position)
End If
objCurrencyManager_PositionChanged(Nothing, Nothing)
End Sub

Private Sub ptbSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ptbSave.Click
Try
Dim cb As New OleDbCommandBuilder(da)
Dim iRecordChanged As String = da.Update(ds, "student")
MsgBox("บันทึการเปลี่ยนแปลงลงสู่ฐานข้อมูลแล้ว" & ControlChars.CrLf & "จำนวนเรคอร์ดที่มีการเปลี่ยนแปลงเท่ากับ" & iRecordChanged & "เรคอร์ด")
Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub

Private Sub ptbMoveFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ptbMoveFirst.Click
objCurrencyManager.Position = 0
End Sub

Private Sub ptbMovePrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ptbMovePrevious.Click
objCurrencyManager.Position -= 1
End Sub

Private Sub ptbMoveLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ptbMoveLast.Click
objCurrencyManager.Position = objCurrencyManager.Count - 1
End Sub

Private Sub ptbMoveNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ptbMoveNext.Click
objCurrencyManager.Position += 1
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.Filter = "Bitmaps (*.bmp)|*.bmp"
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
ptbShow.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)


End If
End Sub

'Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
' Dim sqlname As String
' Dim ds As New DataSet
' With cn ' เปิดการเชื่อมต่อกับ DB
' .ConnectionString = strConn
' If .State = ConnectionState.Open Then
' .Close()
' Else
' .Open()
' End If
' End With
' If txtSearch.Text = "" Then MessageBox.Show("กรุณากรอกข้อความก่อน", "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
' Try
' ' ใส่ sql command ของคุณ
' sqlname = "SELECT * FROM student WHERE stu_id like '%" & txtSearch.Text & "%'"
' Dim da As New OleDbDataAdapter(sqlname, cn) ' จับข้อมูลที่ select มา ยัดใส่ dataset(ds) ตั้งชื่ออะไรก็ได้
' da.Fill(ds, "student")
' Me.Cursor = Cursors.WaitCursor ' ให้เปลี่ยนเม้าส์เป็น นากาทราย


' With DataGridView1 ' ให้ข้อมูลที่อยู่ใน dataset แสดงผลที่ datagridview
' .DataSource = ds.Tables("student")
' End With
' Catch ex As Exception ' ให้แสดงข้อความที่ผิดพลาดในการทำงาน
' MessageBox.Show("" & ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Finally
' ds = Nothing ' ล้างข้อมูลใน dataset ออก
' Me.Cursor = Cursors.Default
' cn.Close() ' ปิดการเชื่อมต่อ
' End Try
'End Sub

Private Sub txtSearch_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtSearch.KeyDown
'If e.KeyCode = Keys.Enter Then
' If txtSearch.Text.Trim = "" Then
' sb.Remove(0, sb.Length())
' sb.Append("select * from student")
' Select Case cmbSearch.SelectedIndex
' Case 0
' sb.Append("where(stu_id = @stu_id)")
' Case 1
' sb.Append("where(stu_name like @stu_name)")
' Case 2
' sb.Append("where(nickname like @nickname)")
' Case 3
' sb.Append("where(major like @major)")
' Case 4
' sb.Append("where(year = @year)")
' End Select

' Dim sqlSearch As String
' sqlSearch = sb.ToString
' Dim dt As New DataTable
' With cmd
' .Parameters.Clear()
' Select Case cmbSearch.SelectedIndex
' Case 0
' .Parameters.Add("@stu_id", OleDbType.VarChar).Value = txtSearch.Text.Trim() & "%"
' Case 1
' .Parameters.Add("@stu_name", OleDbType.VarChar).Value = txtSearch.Text.Trim() & "%"
' Case 2
' .Parameters.Add("@nickname", OleDbType.VarChar).Value = txtSearch.Text.Trim() & "%"
' Case 3
' .Parameters.Add("@major", OleDbType.VarChar).Value = txtSearch.Text.Trim() & "%"
' Case 4
' .Parameters.Add("@year", OleDbType.VarChar).Value = txtSearch.Text.Trim() & "%"

' End Select

' .CommandText = sqlSearch
' .CommandType = CommandType.Text
' .Connection = cn
' dr = .ExecuteReader
' If dr.HasRows Then
' Dim dtSub As New DataTable
' dtSub.Load(dr)
' If dtSub.Rows.Count = -1 Then
' 'ClearBinding()
' txtStudent.DataBindings.Add("text", dtSub, "stu_id")
' cmbTitleName.DataBindings.Add("text", dtSub, "title_name")
' txtName.DataBindings.Add("text", dtSub, "stu_name")
' txtLastName.DataBindings.Add("text", dtSub, "stu_lname")
' txtNickname.DataBindings.Add("text", dtSub, "nickname")
' cmbSex.DataBindings.Add("text", dtSub, "sex")
' cmbYear.DataBindings.Add("text", dtSub, "year")
' cmbMajor.DataBindings.Add("text", dtSub, "major")
' dtpBirthDate.DataBindings.Add("text", dtSub, "birthdate")
' txtEmail.DataBindings.Add("text", dtSub, "email")
' mtbPhone.DataBindings.Add("text", dtSub, "phone")
' txtAddress.DataBindings.Add("text", dtSub, "address")
' txtDistrict.DataBindings.Add("text", dtSub, "district")
' cmbProvince.DataBindings.Add("text", dtSub, "province")
' txtZipcode.DataBindings.Add("text", dtSub, "zipcode")
' ptbShow.DataBindings.Add("image", dtSub, "picture", True)
' Else
' With DataGridView1
' .DataSource = dtSub
' Format(DataGridView1)
' .Visible = True
' End With
' End If
' Else
' MessageBox.Show("เงื่อนไขที่คุณป้อน ไม่มี!!", "ผลการค้นหา", MessageBoxButtons.OK, MessageBoxIcon.Information)
' txtSearch.Focus()
' txtSearch.SelectAll()
' End If
' End With
' End If
' dr.Close()

'End If
'If e.KeyCode = Keys.Down Then
' DataGridView1.Focus()
'End If
If e.KeyCode = Keys.Enter Then
' ถ้ากดปุ่ม enter แล้ว
If txtSearch.Text.Trim() = "" Then Exit Sub
' สร้างชุดคำสั่ง sql เพื่อเลือกข้อมูลจากตาราง
sb.Remove(0, sb.Length())
sb.Append("SELECT * FROM student")
Select Case cmbSearch.SelectedIndex
Case 0 'ค้นหาด้วยชื่อ
sb.Append(" WHERE (stu_id like @stu_id)")
'Case 1 'ค้นหาด้วยชื่อ
' sb.Append(" WHERE (telephone = @telephone)")
Case 1 'ค้นหาด้วยชื่อ
sb.Append(" WHERE (stu_name LIKE @stu_name)")
Case 2 'ค้นหาด้วยชื่อ
sb.Append(" WHERE (nickname LIKE @nickname)")
Case 3 'ค้นหาด้วยชื่อ
sb.Append(" WHERE (major LIKE @major)")
Case 4 'ค้นหาด้วยชื่อ
sb.Append(" WHERE (year LIKE @year)")
End Select
Dim sqlSearch As String
sqlSearch = sb.ToString() 'เก็บชุดคำสั่ง sql ที่ได้ในตัวแปร sqlSearch
Dim dt As New DataTable()
With cmd
.Parameters.Clear() ' ล้างตัวแปรเดิมก่อน
Select Case cmbSearch.SelectedIndex
Case 0
.Parameters.Add("@stu_id", OleDbType.VarChar).Value = txtSearch.Text.Trim() & "%"
Case 1 ' กรณีใช้ชื่อวัสดุ เป็นเงื่อนไขในการค้นหา
.Parameters.Add("@stu_name", OleDbType.VarChar).Value = txtSearch.Text.Trim() & "%"
Case 2 ' กรณีใช้ชื่อวัสดุ เป็นเงื่อนไขในการค้นหา
.Parameters.Add("@nickname", OleDbType.VarChar).Value = txtSearch.Text.Trim() & "%"
Case 3 ' กรณีใช้ชื่อวัสดุ เป็นเงื่อนไขในการค้นหา
.Parameters.Add("@major", OleDbType.VarChar).Value = txtSearch.Text.Trim() & "%"
Case 4 ' กรณีใช้ชื่อวัสดุ เป็นเงื่อนไขในการค้นหา
.Parameters.Add("@year", OleDbType.VarChar).Value = txtSearch.Text.Trim() & "%"
End Select
.CommandText = sqlSearch
.CommandType = CommandType.Text
.Connection = cn
If (cn.State = ConnectionState.Closed) Then cn.Open()
dr = .ExecuteReader() ' รันชุดคำสั่ง sqlSearch เก็บไว้ในตัวแปรออบเจ็ก dr
If dr.HasRows Then ' ถ้ามีรายการเร็คคอร์ดแล้ว
Dim dtSub As New DataTable()
dtSub.Load(dr) 'ให้ออบเจ็ก dtMaterial โหลดข้อมูลจาก dr
If dtSub.Rows.Count = -1 Then
'ClearBinding()
txtStudent.DataBindings.Add("text", dtSub, "stu_id")
cmbTitleName.DataBindings.Add("text", dtSub, "title_name")
txtName.DataBindings.Add("text", dtSub, "stu_name")
txtLastName.DataBindings.Add("text", dtSub, "stu_lname")
txtNickname.DataBindings.Add("text", dtSub, "nickname")
cmbSex.DataBindings.Add("text", dtSub, "sex")
cmbYear.DataBindings.Add("text", dtSub, "year")
cmbMajor.DataBindings.Add("text", dtSub, "major")
dtpBirthDate.DataBindings.Add("text", dtSub, "birthdate")
txtEmail.DataBindings.Add("text", dtSub, "email")
mtbPhone.DataBindings.Add("text", dtSub, "phone")
txtAddress.DataBindings.Add("text", dtSub, "address")
txtDistrict.DataBindings.Add("text", dtSub, "district")
cmbProvince.DataBindings.Add("text", dtSub, "province")
txtZipcode.DataBindings.Add("text", dtSub, "zipcode")
ptbShow.DataBindings.Add("image", dtSub, "picture", True)

Else
With DataGridView1
.DataSource = dtSub
.Visible = True
End With
End If
Else
MessageBox.Show("เงื่อนไขที่คุณป้อน ไม่มี !!!", "ผลการค้นหา", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtSearch.Focus()
txtSearch.SelectAll()
End If
End With
dr.Close()
End If

If e.KeyCode = Keys.Down Then
DataGridView1.Focus()
End If
End Sub
End Class


จากคุณ : อ๋อง / ong_pol@hotmail.com [2008-08-21 13:54:55]
ตอบกระทู้
  • ห้ามการโฆษณา หากต้องการติดต่อหาลูกค้า ติดต่อโฆษณาโดยตรงได้ที่ webmaster@sourcecode.in.th
  • ห้ามใช้คำหยาบและคำพูดที่ไม่เหมาะสม
  • ขอสงวนสิทธิหากตรวจพบ ข้อความที่ไม่เหมาะสม ข้อความนั้นจะถูกลบทันที
ชื่อ
อีเมล์
รายละเอียด

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

 
 
หัวแปลง Mini DisplayPort to HDMI Adapter หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
คลิปสอนเขียนโปรแกรม
เรียนเขียนโปรแกรมดอทเน็ต
เรียนเขียนโปรแกรมแอนดรอยด์
เรียนเขียนโปรแกรมเบล็คเบอร์รี่
เรียนเขียนโปรแกรมซี ซีพลัสพลัส
เรียนเขียนโปรแกรมจาวา
เรียนการใช้งานลินุกส์
เรียนการเขียนโปรแกรมวินโดว์โฟน
เรียนการเขียนโปรแกรมพีเฮชพี มายเอสคิวเอล
9M Blog บอกเล่าเรื่องราว การเขียนโปรแกรมของ นายเอ็ม
บริการ ถ่ายภาพรับปริญญา
อัตราค่าโฆษณา
 
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
แบบสำรวจ
Freelance รับพัฒนาโปรแกรม

Home - Article - Tutorial - Sourcecode - Dev Handbook - Search - WebBoard - Links - About Us

สงวนลิขสิทธิ์ ห้ามคัดลอก ทำซ้ำ แก้ไข ดัดแปลง ไม่ว่าในรูปแบบใด โดยไม่ได้รับอนุญาตเป็นลายลักษณ์อักษร
เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์จากกระทรวงพาณิชย์: 7100503002000
Copyright 2001 SourceCode.in.th