Dim namepart(3) As String
fullname = TextBox1.Text
For i = 0 To TextBox1.Text.Length - 1
namepart = fullname.Split(" ")
Next
TextBox2.Text = namepart(0)
TextBox3.Text = namepart(1)
TextBox4.Text = namepart(2)
you can read more about array here and about string here
I don't know if you can help .... is there a way how I can eliminate re-entering the account no and password in the Balance form.
Example .... to get data from Login form entries. This way the user does not have to re-enter his login details.
what I understand that you have two forms , one for logging in and the other one to show information for corresponding user , right? then yes it is better to eliminate re-entering account's information in the other form , or there will be no need for log in form , you can pass the value you got in first parent form(log in form) to the child form(balance_info form)) , you can pass the txtAccountNo.text as parameter for the child form's constructor
If txtPassword.Text = p Then
MessageBox.Show("Welcome !!")
Dim initial As String
initial = Me.txtAccountNo.Text
Dim form2 As Form2
' Create the child form.
form2 = New Form2(initial)
form2.Show()
in the form2 you need to overload the constructor read this artical to show you how you can pass values between forms(or any objects)
are you asking about how to loop thru database ? i think like this
count = Me.DataSet.Table_Name.Count
For i = 0 To count - 1
m = Me.DataSet. Table_Name.Rows(i).Item("Column_name")
Select Case m
Case "Leo"
Display image of Leo in Me.DataGrid1.Item(i, 0)
.
.
.
etc
End Select
use boolean varaible to indicate if the user enter correct value for each input like this
If Val(employeeid_txt.Text) > 10 Or Val(employeeid_txt.Text) < 1 Then
MessageBox.Show("Employee Id Outwith Range 1 to 10 ", "Please re-enter", MessageBoxButtons.OK)
Else
[B]correct_EmployeeID=true [/B]
End If
then if all inputs for user are correct , store that entry to your array
if correct_EmployeeID and correct_firstname and correct_surname and correct_gender and correct_position then
EmployeeRec(Index).Employeeid = employeeid_txt.Text
etc ..etc
End if
other thing about your code , your validation based on test the length of the user's input and that not correct , I can enter something like "abcd" and your program will accept it in the gender input , it is better to compare the user's input string with "male" or "female" and much better to make user select the gender , and position (use radio button). about the error messages , what if user make more than one error ! many messages will show and that will be annoying , use labels to show the error messages
If Val(employeeid_txt.Text) > 10 Or Val(employeeid_txt.Text) < 1 Then
lable_error_id.text="Employee Id Outwith Range 1 to 10 , Please re-enter" Else
correct_EmployeeID=true
End If
Private Sub btnPlcOrder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlcOrder.Click
custNumOfPizzas = txtPizza.Text
custNumOfCokes = txtCoke.Text
custAmtPaid = txtAmtPaid.Text
Dim order1 As New Order(custNumOfPizzas, custNumOfCokes, custAmtPaid)
Dim dailySummary As New DailySummary(custNumOfPizzas, custNumOfCokes, custAmtPaid)
dailySummary.StoreOrder(order1)
txtOutput.Text = dailySummary.ToString
txtReceipt.Text = order1.ToString
ClearForm()
End Sub
i am not sure if this is your peorblem , but should not you declear dailySummary outside btnPlcOrder_Click code ?? what i understand that each time you place order a new instance of daily summary will creat , where you need only one where you will store all the orders for the day .
while you configure your data adapter , the sql statment will be something like this
Select Name, Surname from Tablel_name WHERE ([B]id=?[/B])
the question mark means that you will select specific row based on id (primary key) then in your code you will verify that user entered correct information . after that replace the question mark with value you got from the user
vb.net is easy to learn , I learned it to do my final project There are many good books for learning vb.net that you can buy. See this link
the implementation (writing the code ) of your system will be the last step you do , you need now to fully understand your system and its function (analyzing it)
num = Me.DataSet11.Your_Table_name.Count
For i = 0 To num - 1
If Me.DataSet11.Your_Table_name(i).Item("date")="1/1/1900" then
Me.DataGrid1.Item(i, Column_index) = "#"
End If
Next
Every data bound control exposes an ItemDataBound event that we can handle. This event fires with each item that is data bound. In the case of a DataGrid, the ItemDataBound event fires for each DataGridItem (row) in the DataGrid. Since we can capture the ItemDataBound event for each row, we can capture values from the row, such as the CustomerID for the specified row, and dynamically create and add controls to the Controls collection of one of the columns (cells).
Dim conn As New SqlConnection(connstr1) Dim sql As String sql = "Select * from address1" 'Dim da As SqlDataAdapter Dim cmd As New SqlCommand(sql, conn) conn.Open() Dim ds As New DataSet() da = New SqlDataAdapter(sql, conn) da.Fill(ds, "Address1") maxrows = ds.Tables("Address1").Rows.Count inc = -1 conn.Close() If inc <> maxrows - 1 Then inc = inc + 1 TextBox1.Text = ds.Tables("address1").Rows(inc).Item("rollno").ToString TextBox2.Text = ds.Tables("address1").Rows(inc).Item("name").ToString End If
first this code must be written in the next_button (by double click next_button to access its code ) second you need to initiate the variable inc outside the next button code (global variable) in your code now , each time you click next, inc will be -1 at start and therefore always the same record will be displayed
What I understand that u want to code calculator and u asking about the equal_button I think u just need to know which button has been clicked (to determine either to add or subtract or whatever ) , so declare Boolean variables lets say add and subtract ,at start both will be false ,
Dim add As Boolean
Dim subtract As Boolean
when add_button clicked make add =true and the other variables false In equal button check which variable is true then do the calculation needed
but i dont c any changes-inspite i declare it has global variables & else if i use while-loop instead of if-loop And also it returns maxrws=26) plz helpmm
first of all if is NOT loop u use it to test condition and i do not know why u using the for or while loop ! in ur code each time u press next button what will happen is 1/ make connection to database 2/get number of raws in table 3/goes through ALL the record but u actually display the same one each time .
but when u define global varaible , each time user press next button it will incremnt by one so u keep track of the next record . and NO need for for loop .
Ok Your code won't display the next record , it will always display the same record over and over , any way I think it’s the last one in table not the first. The problem is u not keep track of which the next record is ! the for loop here dose NOT do that too. To solve this, first define global variable
Public next_record As Integer
Double click Next Record button to access the code and write this
If next_record <= maxrws - 1 Then
id_txt.Text = ds.Tables("table1").Rows(i).Item("ID").ToString()
name_txt.Text = ds.Tables("table1").Rows(i).Item("Name").ToString()
age_txt.Text = ds.Tables("table1").Rows(i).Item("Age").ToString()
sex_txt.Text = ds.Tables("table1").Rows(i).Item("Sex").ToString()
area_txt.Text = ds.Tables("table1").Rows(i).Item("Area").ToString()
next_record = next_record + 1 ' here we keep track of which the Next record is
Else
………………… ' write what u want to do when it reach the last record , maybe to start all over again or anything
End If
Set the multiselect property of OpenFileDialog to true
OpenFileDialog1.Multiselect = True
After this the user can select more than one file by pressing shift and selecting the files you can get the names of all selected files by the property FileNames by writing something like this
Public Sub New(param1 As String, param2 as String)
Me.New(param1)
Try
...
Catch ex As Exception
Throw New Exception (...)
End Try
End Sub
i think this will be enough , since the code of Me.New(param1) will be executed first , so u will catch the errors produced by the first constructor , right ?
here is the problem after calling AcceptChanges the RowState property of custrow will be set to Unchanged so Me.oledb_cust_edit.Update(Me.DataSet11) will return NO change to the dataset
my first item in the ComboBox is NOT THE LAST ENTRY in my previous session.
I want Index (0) to be the last URL entered.
I cant seem to get the last URL typed to appear on the top of the list.
My other problem is that now that i have a text file with 600 websites i've visited, when the streamreader loads the file, my ComboBox has 600 sites in the list. How can i have Streamreader load ALL of the lines, but only display 25 in the Combobox?
create array of strings and store in it the lines of text file then do something like this
If arr.Length >= 25 Then
count = 25
Else
count = arr.Length
End If
Do While count > 0
count = count - 1
ComboBox1.Items.Add(arr(count))
Loop
thats becouse array.Reverse needs an argument and the other thing it does not produce value so you can't assign it to strRevText
strRevText = Me.lblResult.Text
here is problem too , here u do not show the result !
after the correction this is ur code
Dim strOrgText As String
Dim strRevText As [Char]()
Dim array As Array
strOrgText = Me.txtTheString.Text
strRevText = strOrgText.ToCharArray
[B]array.Reverse(strRevText)
Me.lblResult.Text = strRevText[/B]
Second, I want the user drag and drop the parts of the picture into the playing board . How I can do that ? I search on internet , but i couldn't find any helpful information
add Shockwave Flash Object from COM Component ( by right click on tool box -->>Add/Remove Items -->> COM Component tab --->> Shockwave Flash Object) then drag the item that will appear in tool box to the form
on play button add the code that will play the movie and u may need other buttons too
hi , When you select the first row there is no problem coz the event fires once ok, but the problem accurse when you select other row coz the event (which is ListView1_SelectedIndexChanged) fires twice once for deselect the first row and the other for select the second row. So the message "Specific argument was out of the range of valid values. Parameter name: Index " show because deselect the first row you chosen. I hope I could explain well :cheesy:
Any way the solution is by adding if statement before the retrieve of the list row information
If ListClient.SelectedItems.Count = 0 Then Exit Sub
Try
With ListClient
intIndex = .SelectedIndices(0)
lngPClientId = .Items(intIndex).Text
Me.lblClientId.Text = lngPClientId
txtClientName.Text = .Items(intIndex).SubItems(1).Text
txtAcctMgr.Text = .Items(intIndex).SubItems(2).Text
intIndex = 0
End With
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
hi:cheesy: i used dataset and dataadptor for display the other data in text box the sql query will be like this
select email , name
from customer
where id =?
then douple click in combobox and write this code (douple click means the code will excute when user select value )
'here you select the row from table with id that user choose from comboBox
OleDbDataAdapter2.SelectCommand.Parameters("ID").Value = Me.ComboBox1.Text
Me.DataSet21.Clear()
Me.OleDbDataAdapter2.Fill(DataSet21)
TextBox1.Text = DataSet21.Tables("customer").Rows(0).Item("email")
TextBox2.Text = DataSet21.Tables("customer").Rows(0).Item("name")
hi select cobobox and in right you will see the properties 1/datasource make its value the table in dataset you want 2/ ValueMember make its value the coulmn name (name of custeomer)
