| |
 |
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #1374 [.NET] (จาก IP: 125.24.217.186)
ขอวิธีให้สามารถ run Code VB2005 โดยเก็บ Code ไว้บน Server ครับ
เขียนโปรแกรมเสร็จแล้ว สามารถ run บนเครื่องตัวเองได้ โดยไม่มีปัญหาอะไร แต่เมื่อเอา Code ไปเก็บไว้บนเครื่อง Server(เป็นวง Lan) แล้วจะ run มันไม่สามารถรันผ่านได้ครับ
ใครรู้หรือเคยเจอปัญหาแล้วแก้ได้ ช่วยด้วยน่ะครับ
ขอบคุณครับ
|
| จากคุณ
:
Giant_B [2007-09-12 14:53:14]
|
|
ความคิดเห็น #25976 (จาก IP: 58.8.182.195)
| ไม่ผ่านอย่างไร และยังไง บอกหน่อยครับ บอกไม่ละเอียดใครจะตอบคุณได้ |
| จากคุณ
:
หมอดู [2007-09-12 21:34:25]
|
|
ความคิดเห็น #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]
|
|
ความคิดเห็น #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]
|
|
ความคิดเห็น #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]
|
|
ความคิดเห็น #26095 (จาก IP: 125.25.29.238)
คือว่า อยากทราบรายละเอียดของคำสั่งของการคอนเน็คกับดาต้าเบส โดยเป็นคำสั่งการค้นหาจากเทคบ็อกและแสดงรายละเอียดในDataGridView ใครทราบรายละเอียดช่วยบอกหน่อยค่ะ
|
| จากคุณ
:
กรุณาช่วยหน่อยค่ะ [2007-09-29 00:24:40]
|
|
ความคิดเห็น #26096 (จาก IP: 125.25.29.238)
คือว่า อยากทราบรายละเอียดของคำสั่งของการคอนเน็คกับดาต้าเบส โดยเป็นคำสั่งการค้นหาจากเทคบ็อกและแสดงรายละเอียดในDataGridView ใครทราบรายละเอียดช่วยบอกหน่อยค่ะ
|
| จากคุณ
:
กรุณาช่วยหน่อยค่ะ [2007-09-29 00:25:51]
|
|
ความคิดเห็น #26268 (จาก IP: 58.9.108.232)
พอดีหนูทำโปรเจ็คจบเกี่ยวกับการทำอินเตอร์คาเฟ่หนูผยายามทำเป็นเดือนแล้วแต่ก็ยังไม่สำเร็จหนูจึงขอความกรุณาจากทุกท่านช่วยแนะนำด้วยนะค่ะขอบคุณค่ะ
nong010535546@hotmail.com |
| จากคุณ
:
nongning / nong010535546@hotmail.com [2007-11-22 13:54:00]
|
|
ความคิดเห็น #26269 (จาก IP: 58.9.108.232)
พอดีหนูทำโปรเจ็คจบเกี่ยวกับการทำอินเตอร์คาเฟ่หนูผยายามทำเป็นเดือนแล้วแต่ก็ยังไม่สำเร็จหนูจึงขอความกรุณาจากทุกท่านช่วยแนะนำด้วยนะค่ะขอบคุณค่ะ
nong010535546@hotmail.com |
| จากคุณ
:
nongning4 / nong010535546@hotmail.com [2007-11-22 14:00:19]
|
|
ความคิดเห็น #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]
|
|
ความคิดเห็น #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]
|
|
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
| |
|
|
New Article
อัตราค่าโฆษณา
