View Full Version : دستورات SQL
مطهر
چهارشنبه 12 آذر 1382, 17:44 عصر
با سلام
از دستورات SQLدر کدنویسی چگونه استفاده می کنند ؟ :roll:
با تشکر فراوان
شفیعی
چهارشنبه 12 آذر 1382, 22:15 عصر
سلام
آدرسهای زیر را نگاه کن شاید کمکتان بکند در ضمن در گوگل نیز اگر جستجو کنی نمونه در این مورد پیدا می کنی
http://www.a1vbcode.com/vbforums/topic.asp?topic_id=8949&forum_id=2&Topic_Title=Remove+Duplicates+Out+of+SQL+Databse&forum_title=Database+Programming&M=False&S=True
http://www.a1vbcode.com/vbforums/topic.asp?topic_id=8818&forum_id=2&Topic_Title=msflex+grid+or+dbgrid&forum_title=Database+Programming&M=True&S=True
vbstar
چهارشنبه 12 آذر 1382, 23:28 عصر
شما در VB برای باز کردن یک رکوردست می تونی از چند حالت استفاده کنی.
1- بصورت Tableشما می تونی یک رکورد ست را باز کنی.
rst.Open "DefGlobalCost", Inint_ADO.Cnn1, , , adCmdTable
در این مثال نام جدولی که استفاده شده DefGlobalCost است.
2- همچنین شما می تونی برای باز کردن رکوردست یا خواندن اطلاعات از جدول آنها را بصورت sqlبازکنی و در این نوع فراخوانی شما باید از دستورات SQL استفاده نمائید.
Rst.Open "Select Code,SumG,BimG,SazG,In_Global From AdmCalPara WHERE (((AdmCalPara.Code)=" & frmCal1.DataGrid3.Columns(1).text & "));", Cnn1, , , adCmdText
فکر کنم تا اندازه ای مطلب را با این دو مثال جا انداخته باشم ، البته امیدوارم.
Vbstar
Syamah
دوشنبه 21 اسفند 1385, 17:30 عصر
اول یک ado در فرم قرار بده سپس وقتی که آن را با فایل Access ربط دادی (توسط build) در زبانه سوم propertis از ado که RecordSource هستش در قسمت commond text دستورات SQL را وارد کنید ;
حال با قرار دادن یک DataGrid به راحتی می توان که اجرا شدن دستورات را آزمایش کنی.
mahdyeh
دوشنبه 21 اسفند 1385, 20:38 عصر
سلام
اول یک ado در فرم قرار بده سپس وقتی که آن را با فایل Access ربط دادی (توسط build) در زبانه سوم propertis از ado که RecordSource هستش در قسمت commond text دستورات SQL را وارد کنید ;
حال با قرار دادن یک DataGrid به راحتی می توان که اجرا شدن دستورات را آزمایش کنی
بله همینی که Syamah گفتن.
میتونی از FlexGrid هم استفاده کنی
MSFlexGrid1.Row = 0
MSFlexGrid1.Rows = 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "Tel"
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = "LastName"
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "Name"
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = "Address"
Dim rec As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=TelDateBase;Data Source=."
cnn.Open
cmd.ActiveConnection = cnn
cmd.CommandText = "select * from Table نام "
cmd.CommandType = adCmdText
i = 1
Set rec = cmd.Execute
While rec.EOF = False
MSFlexGrid1.Rows = i + 1
MSFlexGrid1.Row = i
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = rec(0).Value
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = rec(1).Value
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = rec(2).Value
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = rec(3).Value
i = i + 1
rec.MoveNext
Wend
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.