[tendaimare]

i have as function that i am using to extract all information in my table and it is working great when i want the stuff to be presented in a datagridview but now i want the stuff to be put into relevant textboxes and textbox does not accept the datasource method so can anyone help

1
Public Shared Function GetRecords(ByVal myStoredProcedure As String) As BindingSource

    Dim sSQL As String = myStoredProcedure
    Dim Conn As New SqlConnection
    Conn = MyFormz.connec.ConnWeb2()
    Dim cmdGetRecords As New SqlCommand()
    Dim daGetRecords As New SqlDataAdapter()
    Dim dsGetRecords As New DataSet()
    cmdGetRecords.Parameters.Clear()
    Try
      With cmdGetRecords
        .CommandText = sSQL
        .CommandType = CommandType.StoredProcedure
        .Connection = Conn
      End With
      Conn.Open()
      Dim oBindingSource As BindingSource = GetBindingSource(cmdGetRecords)
      If Not oBindingSource Is Nothing Then
        Return oBindingSource
      Else
        Throw New Exception("There was no BindingSource returned")
        Return Nothing
      End If
    Catch ex As Exception
      Return Nothing
    Finally
      Conn.Close()
    End Try
  End Function
2
DataGridView1.DataSource = DirectCast(ClassClass.GetRecords("udp_tblArea_lst"), BindingSource)

[Shadar]

THis is an example of how to bind it to a datatable.

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dt = cm_SQLSERVER.GetDataTable("Select * from employees", CommandType.Text)
        TextBox1.DataBindings.Add(New Binding("Text", dt, "lastname"))
    End Sub

This post has been edited by Shadar: 02 March 2011 - 08:26 AM

[tendaimare]

Shadar, on 02 March 2011 - 08:23 AM, said:

THis is an example of how to bind it to a datatable.

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dt = cm_SQLSERVER.GetDataTable("Select * from employees", CommandType.Text)
        TextBox1.DataBindings.Add(New Binding("Text", dt, "lastname"))
    End Sub

ALTER PROC [dbo].[udp_tblArea_Other_lst]
AS
SET NOCOUNT ON

SELECT [Category_ID], 
	[Category]
FROM tblArea_Other


SET NOCOUNT OFF

ALTER PROC [dbo].[udp_tblArea_sel]
	@Category_ID bigint
AS
SET NOCOUNT ON

SELECT [Category_ID], 
	[Category], 
	[Area_Name]
FROM tblArea
WHERE [Category_ID] = @Category_ID


SET NOCOUNT OFF

i am using these stored procedures for extracting all data in a datatable so how do i adjust the code

[tendaimare]

tendaimare, on 02 March 2011 - 08:40 AM, said:

Shadar, on 02 March 2011 - 08:23 AM, said:

THis is an example of how to bind it to a datatable.

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dt = cm_SQLSERVER.GetDataTable("Select * from employees", CommandType.Text)
        TextBox1.DataBindings.Add(New Binding("Text", dt, "lastname"))
    End Sub

ALTER PROC [dbo].[udp_tblArea_Other_lst]
AS
SET NOCOUNT ON

SELECT [Category_ID], 
	[Category]
FROM tblArea_Other


SET NOCOUNT OFF

ALTER PROC [dbo].[udp_tblArea_sel]
	@Category_ID bigint
AS
SET NOCOUNT ON

SELECT [Category_ID], 
	[Category], 
	[Area_Name]
FROM tblArea
WHERE [Category_ID] = @Category_ID


SET NOCOUNT OFF

i am using these stored procedures for extracting all data in a datatable so how do i adjust the codeand by the way cm_SQLServer is supposed to be what exactly?

[Shadar]

tendaimare, on 02 March 2011 - 09:49 AM, said:

tendaimare, on 02 March 2011 - 08:40 AM, said:

Shadar, on 02 March 2011 - 08:23 AM, said:

THis is an example of how to bind it to a datatable.

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dt = cm_SQLSERVER.GetDataTable("Select * from employees", CommandType.Text)
        TextBox1.DataBindings.Add(New Binding("Text", dt, "lastname"))
    End Sub

ALTER PROC [dbo].[udp_tblArea_Other_lst]
AS
SET NOCOUNT ON

SELECT [Category_ID], 
	[Category]
FROM tblArea_Other


SET NOCOUNT OFF

ALTER PROC [dbo].[udp_tblArea_sel]
	@Category_ID bigint
AS
SET NOCOUNT ON

SELECT [Category_ID], 
	[Category], 
	[Area_Name]
FROM tblArea
WHERE [Category_ID] = @Category_ID


SET NOCOUNT OFF

i am using these stored procedures for extracting all data in a datatable so how do i adjust the codeand by the way cm_SQLServer is supposed to be what exactly?

Don't pay attention to the
dt = cm_SQLSERVER.GetDataTable("Select * from employees", CommandType.Text)
line. That is simply a class I wrote to make getting a datatable or dataset back easier. (I got tired of declaring datqa adapter and commands etc)

The line that you need to use is below. Just replace the dt with your dataset variable.

        TextBox1.DataBindings.Add(New Binding("Text", dt, "lastname"))

BTW: I didn't see where you are filling your dataset in your code.

This post has been edited by Shadar: 02 March 2011 - 09:36 AM

[tendaimare]

Shadar, on 02 March 2011 - 09:33 AM, said:

tendaimare, on 02 March 2011 - 09:49 AM, said:

tendaimare, on 02 March 2011 - 08:40 AM, said:

Shadar, on 02 March 2011 - 08:23 AM, said:

THis is an example of how to bind it to a datatable.

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dt = cm_SQLSERVER.GetDataTable("Select * from employees", CommandType.Text)
        TextBox1.DataBindings.Add(New Binding("Text", dt, "lastname"))
    End Sub

ALTER PROC [dbo].[udp_tblArea_Other_lst]
AS
SET NOCOUNT ON

SELECT [Category_ID], 
	[Category]
FROM tblArea_Other


SET NOCOUNT OFF

ALTER PROC [dbo].[udp_tblArea_sel]
	@Category_ID bigint
AS
SET NOCOUNT ON

SELECT [Category_ID], 
	[Category], 
	[Area_Name]
FROM tblArea
WHERE [Category_ID] = @Category_ID


SET NOCOUNT OFF

i am using these stored procedures for extracting all data in a datatable so how do i adjust the codeand by the way cm_SQLServer is supposed to be what exactly?

Don't pay attention to the
dt = cm_SQLSERVER.GetDataTable("Select * from employees", CommandType.Text)
line. That is simply a class I wrote to make getting a datatable or dataset back easier. (I got tired of declaring datqa adapter and commands etc)

The line that you need to use is below. Just replace the dt with your dataset variable.

        TextBox1.DataBindings.Add(New Binding("Text", dt, "lastname"))

BTW: I didn't see where you are filling your dataset in your code.

i am using a binding source(look at line line 18-20) in my original code(the code i posted the first time) and the other thing is i am using a stored procedure
where does it get involved on the code you posted coz i'm lost now

i am using a binding source(look at line line 18-20) in my original code(the code i posted the first time) and the other thing is i am using a stored procedure
where does it get involved on the code you posted coz i'm lost now

[Shadar]

Show me your GetBindingSource Function

[tendaimare]

Public Shared Function GetBindingSource(ByVal SqlCmd As SqlCommand) As BindingSource
Dim oBindingSource As New BindingSource()
Dim Adapter As New SqlDataAdapter(SqlCmd)
' Populate a new data table and bind it to the BindingSource.
Dim dTable As New DataTable()
SqlCmd.CommandTimeout = 240
dTable.Locale = System.Globalization.CultureInfo.InvariantCulture
Try
Adapter.Fill(dTable)
Catch ex As Exception
MessageBox.Show(ex.Message, "Error getting BindingSource", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return Nothing
End Try
oBindingSource.DataSource = dTable
Return oBindingSource
End Function

[Shadar]

OK...now that I see what you are doing this is the line you need.

TextBox1.DataBindings.Add(New Binding("Text", oBindingSource, "NameOfFieldToBindTextBoxTo"))

Add this line after you get the binding source and modify it for each textbox.


Example:

TextBox1.DataBindings.Add(New Binding("Text", oBindingSource, "NameOfFieldToBindTextBoxTo"))
TextBox2.DataBindings.Add(New Binding("Text", oBindingSource, "NameOfFieldToBindTextBoxTo2"))

This post has been edited by Shadar: 03 March 2011 - 12:38 PM