Posts by Jx_Man

actually, put your code in all exepense textboxes key down event (cause user can change them all as they want).

i have too many tasks this week and today is crowded day..
even for taking my lunch time (actually, i forgot to have a lunch :(), so i try to reply questions without testing.. ;) and forget some basic things..

@Andre,,right,,i forgot to move a new label for they new location

>>You can, just with a lot of code....
hehe..i mean its not working with change a style..but can do it API..;)

its so strange that i have uploaded my project to show you what iam doing and you are still asking to show you my effort???... what exactly i want to know is iam making the sale form, it allows to enter the Amount and expenses which is ok ,now i want that it show the Total expense and then it subtract the total expense from actual amount..
This is why i have uploaded the project to let you know what i want..
just have a look at interface there are 2 text boxes below data grid .
1. is Total Expense ,and second is Remaining Amount .i want this to show data here.

its not about your project but your Effort on your Question..and it not showing on your project...
this an example, modified as u needed..

TextboxTotalExpense.text = val(textboxExpense1.text) + val(textboxExpense2.text) + .... + val(textboxExpense8.text)
TextboxRemainAmount.Text = Val(TextBoxAmount.Text) - val(TextboxTotalExpense.text)

place it on any event that you want.

so what do you want?
showing next record and previous record its how move next and previous works.

>>i know how to use update statment...thanz help me...
your post is not answer my question..

your parameter is missing on line 56 Set lbl = Me.Controls.Add("forms.label.l") and also your top, left and width is too small for label, don't forget for m_memo value from user input..

For i = 0 To m_equation
     
         Set lbl = Me.Controls.Add("vb.label","Label" & i) 
            With lbl
             .Top = 1000 ' 10 too small
             .Left = 1000 ' 5 too small
             .Height = m_memo ' user input??
             .Width = 1200 ' 40 too small
             .BackColor = &HFF&
             .ForeColor = &H8000&
             .Caption = "lbl" + (i)
             .Visible = True
   End With

and don't upload entire project just post your code which it relevant with your question

your post is not clear..
also show your effort..

@Das - Thanks,

Jx, tsk, tsk, :). Lets get them to show some effort first dude.;)

sometimes i think they've got a lot effort..:), but i still wrong this time ;)

@critznikkian, you can search on google for ascii table if u didn't sure about ascii code :)

hmm..so what the question here?

i can't give u a code..because i don't know about your code..
what type of database connection? adodb? oledb?
actually how far you doing this..

try this :

Private Sub Form_KeyPress(KeyAscii As Integer)
MsgBox KeyAscii
End Sub

application.StartupPath refers to debug folder..
what the result of your startup execution?
if you feel hard to use application.startup then write your current address manually.
ex :

con.ConnectionString = ("Provider = Microsoft.JET.OLEDB.4.0;Data Source=C:\Documents and Settings\Ichigo\My Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication1\bin\Debug\mydatabase.mdb")

actually i become confused with all your posts..
if you want to Reset Password then all you need is UPDATE PASSWORD..don't delete it..
you just change the password of current user..
UPDATE record is different with ADD NEW Record.
so you don't have to Delete password or Insert new password just UPDATE new password.
You can use UPDATE Statment..

trilok31 : you need to read the rules about posting an answer

not working?
can u tell where u put database file?
i mean the path of it..

still not clear..where is your code? i even didn't know what type of database connection you're using to connected.
your program is 90% completed. so, binding data is not hard to you.
how to bind it? just select the field that you want to display on combobox, read data until the last record and finish.

this following code using oledb..modified as u needed.

Private Sub ReadData()
        Dim con As New OleDb.OleDbConnection
        Dim cmdAuthor As New OleDb.OleDbCommand
        Dim dsAuthor As New DataSet
        Dim daAuthor As New OleDb.OleDbDataAdapter
        Dim dtAuthor As New DataTable
        Dim i, k As Integer

        ' Got the debug path
        con.ConnectionString = ("Provider = Microsoft.JET.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Authors.mdb")
        Try

            cmdAuthor = con.CreateCommand
            cmdAuthor.CommandText = "SELECT * FROM Authors "
            daAuthor.SelectCommand = cmdAuthor
            daAuthor.Fill(dsAuthor, "Authors")
            dtAuthor = dsAuthor.Tables("Authors")
            For i = 0 To dtAuthor.Rows.Count - 1
                cmbAuthor.Items.Add(dtAuthor.Rows(i).Item(1))
            Next

        Catch ex As Exception
            MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OKOnly, "Connection Error !!")
        End Try
        con.Close()
    End Sub

ok..i understand now.
then how far you doing this?
post your reset code in form2.

try to check on immediate window. after running program, u can see this window on the buttom of vb6.

you're welcome..
and don't forget to mark this thread as solved.

change the style to Graphical (as WaltP suggest). Com.Style = 1 but this property is read only..you can't change at the run time.
so, you can't do that.

then mark as solved.

what are you used to connect? adodb?oledb?adodc control?
also post your code..show some effort first..how far u doing this..

>>and as i already told u, it is not erroring when i m adding the record, but when navigating the record...
so,when you telling this?? you concern us with your adding codes from the start..
just post your navigate code and provides a full info about error..what an error came up, which line, etc.. so we can fully understand the problem..

.NET Combo Box or list box doesn't support item data. You can create your own class if you want to keep using SetItemData.

wow..its realy unsecured. that mean anybody can access a program.
say, if andre has already registered as user then every you open the program, he directly enter without login. so, what about another user open this program?
another user can directly access program too..

i suggest to load a user name and display it when user type a user name, but not the password.

i've tried the similiar code. it running nicely.
as we said to you to change data type in database field in mssql server.
and maybe u need to convert an input to numeric type before add it to database.

what your code in vb6 for vb6.Setitemdata?

what error said?
in which line?

it can happen if your database connection is error or you used a static path, so when you the code running in other computer this error can occurred or a data type problem like andreRet post.

you must to change data type on database..
also i want to know which line of your code that error came up...
about text box input, you can set text box to not allowed an input except a numeric input. so text box just accept a numeric input.

Private Sub Text7_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 48 To 57, 8
        'Let these key codes pass through
        Case Else
        'All others get trapped
        KeyAscii = 0
    End Select
End Sub

just save the path. usually as u save other records.
use a string data type..
when you load the path from database then u can show it in picture box.

Andreret : absolutely right..

sorry for missing the file..my bad..
i still posting to you even this thread already solved :)
Good luck with your project.

@AndreRet : this post will answered all his thread..haha..
you really in good mood friend :)

@Jaseem Ahmed : you really lucky today..so try it..don't say that u still confuse after andre write this much codes..good luck with your project :)

this following is an example code, modified as you needed.

Private Sub Add_Click()
    Adodc1.Refresh
    Adodc1.Recordset.AddNew
    Adodc1.Recordset.Fields("Au_Id") = Text1.Text
    Adodc1.Recordset.Fields("Author") = Text2.Text
    Adodc1.Recordset.Fields("YearBorn") = Text3.Text
    Adodc1.Recordset.Update
    MsgBox "Data Added"
End Sub

also to asign database field to dtpicker DTPicker1 = rs.Fields("birthday")

sorry but i'm in my office right now, but i found this project on net..
see if this help..

this following code for editing data. change as you needed.

' Edit Query
SQlQuery = "UPDATE Data " & _
           " SET Name ='" & Trim(txtName.Text) & "'," & _
           " Address ='" & Trim(txtAddress.Text) & "'," & _
           " TelpNo ='" & Trim(txtTlpNo.Text) & "'," & _
           " Email ='" & Trim(txtEmail.Text) & "'" & _
           " WHERE Id='" & Trim(txtId.Text) & "'"
            
' Execute Sql query
Con.Execute SQlQuery, , adCmdText
' Message if record already edited
MsgBox "Data Successfully Edited"

this following code for editing data. change as you needed.

' Edit Query
SQlQuery = "UPDATE Data " & _
           " SET Name ='" & Trim(txtName.Text) & "'," & _
           " Address ='" & Trim(txtAddress.Text) & "'," & _
           " TelpNo ='" & Trim(txtTlpNo.Text) & "'," & _
           " Email ='" & Trim(txtEmail.Text) & "'" & _
           " WHERE Id='" & Trim(txtId.Text) & "'"
            
' Execute Sql query
Con.Execute SQlQuery, , adCmdText
' Message if record already edited
MsgBox "Data Successfully Edited"

first, Add reference before do all codes..
Click on Project->Reference, Find for Microsoft ActiveX Data Object 2.5 Library and select it.

this followwing code to connect vb6 with MS SqlServer
Create 1 button on your form

Public Con As New ADODB.Connection
Public rs As New ADODB.Recordset

Private Sub Command1_Click()
If Con.State = 1 Then Con.Close
    Con.ConnectionString = "Provider=MSDASQL;Driver={SQL Server}; " & _
    " SERVER=USER;Database=Test;Uid=;Pwd="
    Con.Open
MsgBox "VB6 has connected with SQLServer Database"

Con.Close
End Sub

andreret already posting codes to add new record with adodb way..post no #2
as he said too, if you want to add,edit or delete record please divide your thread into a couple threads..
also how far you doing this..we didn't do all entire codes for you but we help to fix your codes :)

use tree view and list view.

so you use adodc control?
post your code..how far u do this..

see if this help :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sql As String
        Dim strjobno As String
        Dim Cn As OleDb.OleDbConnection
        Dim myCom As OleDb.OleDbCommand

        Cn = New OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Hardware.mdb")
        Cn.Open()
        sql = "sselect MAX(jobno) from repair"
        myCom = New OleDb.OleDbCommand(sql, Cn)
        strjobno = myCom.ExecuteScalar
        Cn.Close()
        If strjobno Is DBNull.Value Then
            Dim intjobno As Integer = Convert.ToInt32(strjobno)
            strjobno = 1
        Else
            strjobno = strjobno + 1
        End If
        TextBox1.Text = strjobno
    End Sub

if your code already completed then please mark this thread as Solved.

show you effort first.

check your input with your data type in database.
like date, your input must be suitable with database type.

you're welcome..
please mark this thread as solved.