Posts by Jx_Man

>> process of creating
- Add new Item -> Module -> OK
- Just put code that u want to access from any form.
>> using module..
- call function or procedure or anything you have declare in your module

declare your variable on module...
you can access certain variable from any form.

Make all textbox as control array.
So, first draw one text box then copied it. vb 6 will give u a message to make textbox as control array or not. click yes to make it as control array.
After it you can make loop and get value from all text box.
Ex :

Dim i As Integer
For i = 0 To 2
    With List1
        .AddItem (Text1(i).Text)
    End With
Next i

Just post on Web Development Forum Please...

Make your program to access temporary internet file folder and list all file there
"documents and settings\%username%\local settings\temporary internet files\ "
And check this registry keys from "HKCU\Software\Microsoft\Internet Explorer\TypedURLs"

what kind of error?

using API function.
See this api tutorial And This tutorial
You can download demo project here

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 5
    If ProgressBar1.Value = 100 Then
        MDIForm1.Show
        Timer1.Enabled = False
        Unload Me
    End If
End Sub

Set Timer Interval on Properties = 70.

this thread too old...

I think it was detail.
I means to save trial times (expired time) in registry. Compare it with the day when program running.
ex :
a = Today
b = expired time (saved in registry)

if a > b then
' expired message.
else
' Do nothing
endif

No, you can't extract forms or reports...

if u want to add 21st record
1. count gridview rows.
2. if count => 20 then delete all 20 record
else
add record.

Private Sub Command1_Click()
Shell "C:\Program Files\Microsoft Office\Office10\EXCEL.EXE"
End Sub

Hi...Welcome to Daniweb Friend :)

Hi...Welcome to Daniweb Friend :)

Hi Fernanmc...Welcome to Daniweb Friend :)

Hi Handoma...Welcome to Daniweb Friend :)

Hi...Welcome to Daniweb Friend :)

Hi Scott...Welcome to Daniweb Friend :)

your code seems right...

use registry to save trial time.

Dear All,
Plz focus on the exact problem.
When u r posting in this forum, first do give the backend u r using, table structure if possible, some sample code in front end which u r having problem with. 'll definitely help us to help u all.

regards
Shaik Akthar

Rite :)

you're welcome.
Don't forget to mark this thread Solved if it already solved :)

you can see my snippet here and here
http://www.daniweb.com/code/snippet820.html
http://www.daniweb.com/code/snippet836.html

Its hard to make a shop program for beginner.

first try to save, edit and delete database.
just make a simple program like phone book.
First make database :
Table field (IdPhoneBook, FirstName, LastName, Address, PhoneNumber)
Then make a code to save, edit and delete data phone book to database.

it mean solved?

Hi...Welcome to Daniweb Friend :)

i was tried to use row.count() and it running good.

Dim cmdCustomer As New SqlCommand
        Dim daCustomer As New SqlDataAdapter
        Dim dsCustomer As New DataSet
        Dim dtCustomer As New DataTable

        conn = GetConnect()
        Try
            cmdCustomer = conn.CreateCommand
            cmdCustomer.CommandText = "SELECT * FROM Customer where IDCustomer = '1' "
            daCustomer.SelectCommand = cmdCustomer
            daCustomer.Fill(dsCustomer, "Customer")
            dtCustomer = dsCustomer.Tables("Customer")
            MsgBox(dtCustomer.Rows.Count)
        Catch ex As Exception
            MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OKOnly, "Connection Error !!")
        End Try

i mean use count() function.

Dim myReader As SqlDataReader
        conn = GetConnect()
        conn.Open()
        Dim temp As String
        Try
            Dim sql As String = "SELECT count(*) AS 'KODE' FROM tblUser where UserName = 'xxx' "
            Dim comm As SqlCommand = New SqlCommand(sql, conn)
            myReader = comm.ExecuteReader
            If myReader.HasRows Then
                While myReader.Read()
                    temp = myReader.Item("KODE")
                End While
            End If
            myReader.Close()
        Catch ex As Exception

        End Try
        conn.Close()

        MsgBox(temp) ' Showing with messagebox

use third party.

why you didn't use sql query?
select count(*) where user name = 'xxx'

on Application Folder on Setup project.
Right Click -> Add -> File (select your database to add)

Add component Microsoft Common Dialog Control 6.0 (SP6).
To open File and show it into picture box:

Private Sub btnBrowse_Click()
CommonDialog1.ShowOpen
txtPath.Text = CommonDialog1.FileName
Picture1.Picture = LoadPicture(txtPath.Text)
End Sub

dt = ds.Tables("tblUser") -> dt is data table

MsgBox(dt.Rows.Count) -> count all row in table user
yes, cause it will count all rows in table user.

See this Link

just draw two Textbox as input and one Label as result and a Button to process it.

you want to make back up of database...
If yes, then copied the last changed to other folder or place.

u input them into listbox?

Try this :

Function FileExists(FileName As String) As Boolean
On Error GoTo ErrorHandler
' get the attributes and ensure that it isn't a directory
FileExists = (GetAttr(FileName) And vbDirectory) = 0
ErrorHandler:
' if an error occurs, this function returns False
End Function

example to call :

Private Sub btnCheck_Click()
    If FileExists(txtPath.Text) = True Then
        MsgBox "File found"
    ElseIf FileExists(txtPath.Text) = False Then
        MsgBox "File Not Found"
    End If
End Sub

post on Computer Science and Software Design Section

Hi Welcome to Daniweb Friend :)

Hi Welcome to Daniweb Friend :)

Hi Welcome to Daniweb Friend :)

Hi Welcome to Daniweb Friend :)

Hi Welcome to Daniweb Friend :)

private void comboBox3_SelectedIndexChanged(object sender, System.EventArgs e)
{
	if (comboBox2.SelectedItem = "Days")
	{
		comboBox3.Items.Add("Mon");
		comboBox3.Items.Add("Tue");
		...
	}
	else if (comboBox2.SelectedItem = "Months")
	{
		comboBox3.Items.Add("Jan");
		comboBox3.Items.Add("Feb");
		...
	}
}

try to googling some example.

first know the business flows.
Create database for it then make a program.

copied it.

Private Sub Text3_KeyPress(KeyAscii As Integer)
On Error GoTo msg
If KeyAscii = 13 Then ' working if enter pressed
    Picture1.Picture = LoadPicture("C:\" & Text3.Text)
End If
Exit Sub
msg:
    MsgBox Err.Description
End Sub