SQL & ADODC

[hidensoft]

سلام
من می خوام یه برنامه بنویسم که توش از ADODC و SQL استفاده شده باشه
2 تا سوال دارم
1- می شه از کنترل دیتا گرید (DATA GRID) بدون ADODC استفاده کرد - یعنی با DATA
2- چطوری میشه از SQL برای جست و جو استفاده کرد
لطفا سورس برام بزارین که راحت تر متوجه بشم
لطفا سورس به نحوی باشه که ADODC یا DATA از طریق کد نویسی باشند و خاصیت های Connection یا DATA Source از طریق برنامه نویسی SET بشوند .

[zerobit-ltd]

data grid رو باید با ado استفاده کنی.
اگر بخوای یه stored procedure رو run کنی، باید اسم stored procedure رو تو خاصیت command text شی command قرار بدی. اگر هم بخوای یه query رو از داخل برنامه اجرا کنی (به این حالت embedded می گن)، query رو باز داخل command text قرار می دی. آخر سر هم متد execute رو فراخونی می کنی.

این یه مدل واسه select



Option Explicit

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
Private Sub Form_Load()
Dim sqlCommand As String

cn.ConnectionString = "Provider=SQLOLEDB.1;Password=test;Persist Security Info=True;User ID=user;Initial Catalog=Northwind;Data Source=Main"
cn.Open

sqlCommand = "SELECT * FROM Region"

rs.Source = sqlCommand
rs.ActiveConnection = cn
rs.Open

rs.MoveFirst
MsgBox (rs.Fields("RegionDescription"))

rs.Close
cn.Close
End Sub

اینم یه مدل دیگه واسه insert



Option Explicit

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
Private Sub Form_Load()
Dim sqlCommand As String
Dim sqlCommand As String

cn.ConnectionString = "Provider=SQLOLEDB.1;Password=test;Persist Security Info=True;User ID=user;Initial Catalog=Northwind;Data Source=Main"
cn.Open

sqlCommand = "insert into Region values(5, 'Test')"
cmd.CommandText = sqlCommand
cmd.ActiveConnection = cn
cmd.Execute

cn.Close
End Sub