0

hello guys
what is the best way of populating text boxes with values from the database. I am using access and want to display some values to two textboxes . I have been using the GetData method but I got a prpblem , in case the value is not found I want to call another form where it can be added to the database. the data being got is from the same table.
thanks.

3
Contributors
7
Replies
41
Views
1 Year
Discussion Span
Last Post by zizo.ahmed.779
0

Hi

Can you post the code that you are currently using? Usually, if you are just looking to grab some data I would recommend using an OleDbDataReader which can be implemented along the lines of:

Dim connectionString As String = "Your connection string"
Dim connection As New OleDbConnection(connectionString)

Dim command As New OleDbCommand("SELECT Fields FROM Table", connection)

connection.Open()

Dim reader As OleDbDataReader = command.ExecuteReader

If reader.HasRows

    reader.Read()
    TextBox1.Text = reader("FieldName").ToString
    TextBox2.Text = reader("FieldName").ToString

End If

connection.Dispose()

The above assumes that you are getting a single record back from the table.

HTH

0

hello
sorry for late response. here is my code.

dim em as new emmatableadpter.itemtableadapter
dim et = em.getdatabyitemname(textbox1.text)
if et.rows.count=0
    textbox2.text=""

    dim x as Emma.emmadataset.item=et.rows
    textbox2.text=x.price

its something like that. the code is able to display if the item exists, but if no item is found the text box remains empty. but I don't want it to remain empty. I want to call a windows form where it can be included into the database.
thanks.

Edited by Reverend Jim: Corrected code formatting

0

Hi

If you want to show a form when there is no data then you would do something like:

If et.rows.count = 0 Then
    Dim addForm as New YourOtherForm
    addForm.Show 'Or use ShowDialog to keep it on top until closed
Else
    TextBox2.Text = x.Price
End If

HTH

0

hi
I tried that out earlier but I didn't use the Else and it kept on loading the AddForm after every letter I typed. do u hope the Else statement will solve that.

thanks.

0

It should but not having seen the full code I can't say for certain. Why don't you post your entire routine that handles this as that will make it much easier to assist.

0

hi
here it is.

Dim EA as new RetailDataSetTableAdapters.itemTableAdapter

Dim EB = EA.GetDataByitemname(text box1. Text)

if EB.Rows.Count=0

    textbox2.text=""

    Button1.Enabled=False

    exit sub

end if

button1.enabled=true

dim X as Retail.RetailDataSet.item row=EB.Rows(0)

textbox2.text=X.price

that is the code to display but if nothing is found, I want to call AddForm.

thanks.

Edited by Reverend Jim: Corrected code formatting

0

i don't know if it help or not but i use this to fill textbox from datagridview by cellclick event

textbox1.Text = dgv.Rows(e.RowIndex).Cells(0).Value.ToString()
textbox2.Text = dgv.Rows(e.RowIndex).Cells(1).Value.ToString()

Edited by Reverend Jim: Please use CODE tool for posting code

This article has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.