How to bind a datagrid with the records of a recordsource through coding ??

[vishwaskothari]

How i can bind the datagrid with the record that are present in a recordsource through programming?

one more thing is that the no of record present in the recordsource may vary according the users input.
TIA

regards
vishwas

[debasisdas]

if u are using ADO data control then
try this

Set DataGrid1.DataSource = Adodc1

[vishwaskothari]

no i am not using the adodc to connect.

i have the following connection string to connect to the database.

ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\feemgmt.mdb;" & _
"Persist Security Info=False"
Set con = New ADODB.Connection
con.ConnectionString = ConnString
con.Open ConnString


so what can i do to to bind a datagrid with the records of a recordsource through coding.

plz help its urgent

TIA
with best regards
vishwas

[vishwaskothari]

no i am not using the adodc to connect.

i have the following connection string to connect to the database.

ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\feemgmt.mdb;" & _
"Persist Security Info=False"
Set con = New ADODB.Connection
con.ConnectionString = ConnString
con.Open ConnString


so what can i do to to bind a datagrid with the records of a recordsource through coding.

plz help its urgent

TIA
with best regards
vishwas

is there anybody who can help me ????

[vishwaskothari]

i want to know about the working of a datagrid control

can anybody help me?

TIA

regards
vishwas

[QVeen72]

Hi,

Check This Code:

Dim RST As New ADODB.Recordset
Set RST = Nothing
RST.CursorLocation = adUseClient
RST.Open "Select * From MyTable", Conn, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = RST
 

Regards
Veena

[vishwaskothari]

Hi,

Check This Code:

Dim RST As New ADODB.Recordset
Set RST = Nothing
RST.CursorLocation = adUseClient
RST.Open "Select * From MyTable", Conn, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = RST
 

Regards
Veena

nothing is displayed in the datagrid by this code.
there comes the blank datagrid control

[QVeen72]

Hi,

It happens when, u have done any Binding at Design time/FormLoad to a datacontrol/Environment , then u have to remove that. Check This :

    Dim RST As New ADODB.Recordset
    Set RST = Nothing
    RST.CursorLocation = adUseClient
    RST.Open "Select * From MyTable", Conn, adOpenStatic, adLockReadOnly
    With DataGrid1
        .DataMember = ""
        Set .DataSource = RST
        .Refresh
    End With
 

REgards
Veena

[vishwaskothari]

Hi,

It happens when, u have done any Binding at Design time/FormLoad to a datacontrol/Environment , then u have to remove that. Check This :

    Dim RST As New ADODB.Recordset
    Set RST = Nothing
    RST.CursorLocation = adUseClient
    RST.Open "Select * From MyTable", Conn, adOpenStatic, adLockReadOnly
    With DataGrid1
        .DataMember = ""
        Set .DataSource = RST
        .Refresh
    End With
 

REgards
Veena

thanks a lot
but the result is the same,
datagrid comes empty
here is my code

Dim rs As New ADODB.Recordset
Set rs = Nothing
rs.CursorLocation = adUseClient
rs.Open "SELECT date,session from accounts where std_id= '" & txtSearchRoll.Text & "';", con, adOpenStatic, adLockReadOnly

frmShowSearchId.DataGrid1.DataMember = ""
Set frmShowSearchId.DataGrid1.DataSource = rs
frmShowSearchId.DataGrid1.Refresh

frmShowSearchId.Show


what can be the cause???

TIA
regards
vishwas

[vishwaskothari]

thanks a lot
but the result is the same,
datagrid comes empty
here is my code

Dim rs As New ADODB.Recordset
Set rs = Nothing
rs.CursorLocation = adUseClient
rs.Open "SELECT date,session from accounts where std_id= '" & txtSearchRoll.Text & "';", con, adOpenStatic, adLockReadOnly

frmShowSearchId.DataGrid1.DataMember = ""
Set frmShowSearchId.DataGrid1.DataSource = rs
frmShowSearchId.DataGrid1.Refresh

frmShowSearchId.Show


what can be the cause???

TIA
regards
vishwas

is there any body who can help me ?????

[hariharanmca]

No one is here to work your problem.
Try to solve your self then; post your query.
You have to try your best.

[QVeen72]

thanks a lot
but the result is the same,
datagrid comes empty
here is my code

Dim rs As New ADODB.Recordset
Set rs = Nothing
rs.CursorLocation = adUseClient
rs.Open "SELECT date,session from accounts where std_id= '" & txtSearchRoll.Text & "';", con, adOpenStatic, adLockReadOnly

frmShowSearchId.DataGrid1.DataMember = ""
Set frmShowSearchId.DataGrid1.DataSource = rs
frmShowSearchId.DataGrid1.Refresh

frmShowSearchId.Show


what can be the cause???

TIA
regards
vishwas

Hi ,

Write the above code of populating the DataGrid in Form_Load event of frmShowSearchID, not the calling form. thats bcoz, u may have declared the RST as local variable, and it may be out of scope for showing Form.

REgards
Veena

[jrtox]

is there any body who can help me ?????

Hi,

1. Try to Check your "RS"and "Con" if its declared as a global variable.
2. Check if your SQL statement is correct, use SQL builder if it is right.
3. Below is my way to retrive, Save, Update, data from my databse.


'Paste it everywhere as long as its trigger an action, eg in the command button, or during form_load.

sql = "SELECT * FROM Supplier WHERE Name='" & ComboBoxSupplier.Text & "'"
OpenDB (sql)
Set FormName.datagridName.datasource = RS


' Below are Coding in the my Module, Paste it there.

Function OpenDB(sql As String)

Connect

If RS.State = 1 Then
RS.Close
End If

RS.CursorLocation = adUseClient
RS.Open sql, CONN, adOpenDynamic, adLockOptimistic

End Function

'----------

'---------------
Function Connect()

Dim ESQL As String

Set CONN = New ADODB.Connection
If CONN.State = 1 Then
CONN.Close
End If

MSDatabase = App.Path & ("\DBase\datacaddtech.mdb")'Edit with your Database name and location.

ESQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MSDatabase & ";Persist Security Info=False"
CONN.Open (ESQL), , , 0


End Function


Regards.