 |
|
ต้องการค้นหาข้อมูลระหว่างวันที่หนึ่ง ไปยัง อีกวันที่หนึ่ง แล้วให้โชว์ข้อมูลใน datagrideview จากโปรแกรม vb.net |
|
 |
|
|
 |
 |
|
สร้างปุ่ม search
เอาค่ามาใส่ตอน filter มัน
|
 |
 |
 |
 |
Date :
2012-09-14 16:02:28 |
By :
mixarstudio |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ผมลองแล้วไ่ม่ได้อ่ะคับ
|
 |
 |
 |
 |
Date :
2012-09-14 16:33:51 |
By :
MatooM |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
มันขึ้น ว่ายังไง ครับ ลองดู format date ใน ฐานข้อมุลด้วยนะครับ หรือไม่ก็ ลอง show dtm.value มาดูก่อน ว่า มี ค่าฟอแมทยังไง แร้วค่อย จัดฟอแมทใหม่ให้ตรงกับฐานข้อมูลครับ
|
 |
 |
 |
 |
Date :
2012-09-14 16:39:58 |
By :
tavada_b |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|

|
 |
 |
 |
 |
Date :
2012-09-14 16:50:03 |
By :
MatooM |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
Code (VB.NET)
Dim Conn As SqlConnection = New SqlConnection(My.Settings.MyConnection.ToString)
Private Sub LoadToDataGridView()
Dim Comm As New SqlCommand
Dim dat As New SqlDataAdapter
Dim dt As New DataTable
Dim strSQL As String = Nothing
strSQL = "Select * From MyTable Where MyDate Between @sDate AND @eDate "
With Comm
.Parameters.Clear
.Parameters.Add("@sDate", SqlDbType.Date).Value = DateTimePicker1.Value
.Parameters.Add("@eDate", SqlDbType.Date).Value = DateTimePicker2.Value
.Connection = Conn
.CommandText = strSQL
.CommandType = CommandType.Text
End With
dat.SelectCommand = Comm
dat.Fill(dt)
Conn.Close()
DataGridView1.DataSource = dt
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
LoadToDataGridView()
End Sub
|
 |
 |
 |
 |
Date :
2012-09-14 17:09:19 |
By :
kittipongs |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|

มันขึ้นแบบนี้อ่ะคับ ต้องทำไงต่อคับผม
|
 |
 |
 |
 |
Date :
2012-09-14 17:33:39 |
By :
MatooM |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ด้านบนสุด
Code (VB.NET)
Imports System.Data
Imports System.Data.SqlClient
|
 |
 |
 |
 |
Date :
2012-09-14 17:45:03 |
By :
kittipongs |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ผมประกาศไว้แล้วนะคับ
|
 |
 |
 |
 |
Date :
2012-09-14 17:48:22 |
By :
MatooM |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|

ตามรูป คลิกที่ Import 'System.Data.SqlClient'.
|
 |
 |
 |
 |
Date :
2012-09-14 18:01:32 |
By :
kittipongs |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|

ขึ้นแบบนี้อีก ^ ^"
|
 |
 |
 |
 |
Date :
2012-09-14 18:14:43 |
By :
MatooM |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ในวงเล็บที่ Error ใส่เป็น ConnectionString ครับ
อย่างของคุณน่าจะอยู่ใน class ClassConnect.ชื่อ ConnectionString ที่ได้สร้างไว้ใน ClassConnect
|
 |
 |
 |
 |
Date :
2012-09-14 20:59:07 |
By :
kittipongs |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ขอ เป็น code vb 2008 หน่อยได้หรือปล่าวค่ะ ขอบคุณค่ะ
|
 |
 |
 |
 |
Date :
2013-09-25 23:33:56 |
By :
p |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
แทนคำขอบคุณครับ #NO 6
Code (VB.NET)
'Imports System.Text.RegularExpressions
Dim Thanks As String = New Regex("[0-9]").Replace("ฟ12435ฟห", New MatchEvaluator(Function(s) As String
Return {"๐", "๑", "๒", "๓", "๔", "๕", "๖", "๗", "๘", "๙"}(Integer.Parse(s.Value))
End Function))
'ผลลัพธ์ ฟ๑๒๔๓๕ฟห
|
 |
 |
 |
 |
Date :
2013-09-26 17:08:47 |
By :
ผ่านมา |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|