form wizard but data is from sql server

[rashima]

So I have access form and my backend is sql server, i want to display sqlserver table data on this form...........same way form wizard works with access tables
how can i do this ?

i can get recordset from sql server and assign values individually to each control but i want to get this table data on my form as tabular format

[June7]

Maybe set form DefaultView property to Datasheet view?

[rashima]

text in red color is not working, giving error "the object you entered is not a valid recordset property" please helppp

Private Sub Form_Load()
Dim RunSelect6Cmd As New ADODB.Command
Dim rsOutputList As New ADODB.Recordset
Dim sLBList As String
InitCommand RunSelect6Cmd, "select * from tbl_Detail"
Set rsOutputList = ExecuteCommand(RunSelect6Cmd)
Debug.Print rsOutputList.Fields("User_ID")
Set Me.Recordset = rsOutputList
end sub

Sub InitCommand(ByVal Cmd As ADODB.Command, cmdText)
With Cmd
.ActiveConnection = MyConnectionString
.CommandText = cmdText
.Prepared = True
End With
End Sub
Function ExecuteCommand(ByVal Cmd As ADODB.Command, ParamArray values() As Variant) As ADODB.Recordset
Dim i As Long
Dim s As String

For i = LBound(values) To UBound(values)
Cmd.Parameters(i - LBound(values)).Value = values(i)
Next i
Set ExecuteCommand = Cmd.Execute
End Function

[June7]

I think wrong syntax. Don't believe can set a form's RecordSet, set it's RecordSource property to an SQL statement, not a retrieved recordset. Do you have links to the SQL tables?

Private Sub Form_Load()
Me.RecordSource = "select * from tbl_Detail;"
End Sub

But then I have never tried working with a SQL backend.

The Debug statement will print UserID of only the first record of the recordset.

[rashima]

I Don't want to work with link tables so my back end is on sql-server and i am working with ADO.
now i figure out that this below is working but not the one i posted above but i don't know whats the main difference between these 2 codes


sSQL = "SELECT * from View_Detail"
conMyConnection.ConnectionString = MyConnectionString
conMyConnection.Open
rsOutputList.Open sSQL, conMyConnection, adOpenStatic, adLockPessimistic
Set Me.Recordset = rsOutputList

[June7]

Glad it's working. The difference appears to be the sequence in establishing connection.