***** با دستورات sql در بين يك محدوده فيلد

[vbiman]

با سلام
من يك برنامه بانك اطلاعاتي كه با شي ado باشد رامي خواستم كه يك فيلد تاريخ داشته باشد حالا كاري كه بايد بكنه اينه كه از يك تاريخ تا تاريخ ديگه را ***** كند ودر داخل يك DBgrid نمايش دهد و با دستورات SQL نوشته شود لطفاً درباره استفاده از دستورات SQL درون ويژوال بيسيك توضيحي بدهيد ..
با تشكر...:19:.

[kbdfa]

سلام
دوست عزيز ميتوني از دستور select و Bitween استفاده كني.

[vbiman]

من يك نمونه برنامه مي خوام.

[mahdi053]

سلام دوست من اول يه ماژول بساز و كد زيرو توش كپي كن:

Global sCnn As String
Global dbSet As ADODB.Connection
Global rsRec As ADODB.Recordset
Global cmd As ADODB.Command
Public Sub Opendb()
Set dbSet = New ADODB.Connection
Set cmd = New ADODB.Command
Set rsRec = New ADODB.Recordset
sCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Pk.mdb;Mode=Share Deny None;Persist Security Info=False"
dbSet.Open sCnn
cmd.CommandType = adCmdText
cmd.ActiveConnection = dbSet
End Sub


حالا تو cOMMAND دي كه بايد كارت رو انجام بده اينو كپي كن:

Opendb
cmd.CommandText = " Select help3,help2,help4,help7,help10,help9,help11,ID from help10 WHERE help2=" & txtSearch.Text & ""
Set rsRec = cmd.Execute
DGSearch.Rows = 2
lCount = 0
While Not rsRec.EOF
lCount = lCount + 1
DGSearch.Rows = DGSearch.Rows + 1
DGSearch.TextMatrix(lCount, 0) = IIf(IsNull(rsRec.Fields(0).Value), "", rsRec.Fields(0).Value)
DGSearch.TextMatrix(lCount, 1) = IIf(IsNull(rsRec.Fields(1).Value), "", rsRec.Fields(1).Value)
DGSearch.TextMatrix(lCount, 2) = IIf(IsNull(rsRec.Fields(2).Value), "", rsRec.Fields(2).Value)
DGSearch.TextMatrix(lCount, 3) = IIf(IsNull(rsRec.Fields(3).Value), "", rsRec.Fields(3).Value)
DGSearch.TextMatrix(lCount, 4) = IIf(IsNull(rsRec.Fields(4).Value), "", rsRec.Fields(4).Value)
DGSearch.TextMatrix(lCount, 5) = IIf(IsNull(rsRec.Fields(5).Value), "", rsRec.Fields(5).Value)
DGSearch.TextMatrix(lCount, 6) = IIf(IsNull(rsRec.Fields(6).Value), "", rsRec.Fields(6).Value)
' DGSearch.TextMatrix(lCount, 7) = IIf(IsNull(rsRec.Fields(7).Value), "", rsRec.Fields(7).Value)
rsRec.MoveNext
Wend
Closedb


اميد وارم كمكت كنه
در خدمتيم:5::31::11: