Jx_Man

pudding --> chocolate taste its my favorite ...

butt is my friend surname.

4325

[QUOTE]I love omelettes.[/QUOTE] yup... i loved omelettes too and some milk...:)

combobox.items.clear()

crown

This an example : Modified as u needed. [CODE] Set rsTest = New ADODB.Recordset With rsTest.Fields .Append "Field1", adBSTR .Append "Field2", adBSTR .Append "Field3", adBSTR End With rsTest.Open With rsTest .AddNew .Fields("Field1") = "Test1" .Fields("Field2") = "Test2" .Fields("Field3") = "Test3" .Update End With Set DataReport1.DataSource = rsTest With DataReport1.Sections("Section1") .Controls("Text1").DataField …

IRON MAN 3 HUMMINGBIRD

> Is there away to do this in VB6 Yes. there's a way. You must have Windows Media Player instaled in your computer. First, add new component ( Windows Media Player) You can press ctrl+T or Project->Add Component, then select **Windows Media Player** and press OK. New component will added …

see this following code : [code=vb.net]Private Sub AutoNumberNo() Dim myReader As SqlDataReader conn = GetConnect() conn.Open() Dim temp As String Try Dim sql As String = "SELECT MAX(NO) 'IDNumber' FROM Student " Dim comm As SqlCommand = New SqlCommand(sql, conn) myReader = comm.ExecuteReader If myReader.HasRows Then While myReader.Read() temp = …

See if this helps : [CODE]Option Explicit #If Win32 Then Private Const LB_FINDSTRING = &H18F Private Declare Function SendMessage Lib _ "User32" Alias "SendMessageA" (ByVal _ hWnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) _ As Long #Else Private Const WM_USER = &H400 …

Hi...Weclome to Daniweb Friend :)

well great, maybe u can teach others with your program. happy coding friend :)

@bruce : [make your own thread.. :), this thread is dead already.](http://www.daniweb.com/software-development/visual-basic-4-5-6/4/contribute)

my graduate project... cluster data with GKA(genetic k-means algorithm)

[QUOTE]Hi every one. I am having some problem with calculation in datagridview. i have 3 columns in datagridview which are Date,location,Payment. What i want to do now is i want to calculate the total of the payment and my total is a textfield out side the data gridview under the …

Create a recordset to Accomodate related item then set datareport recordset to it.

hi suhana... are your problem is solved?

Post your code. how far you doing this. This following code to get items on listview and show it in textboxes Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click Dim x As Integer = CInt(ListView1.SelectedItems(0).Index) TextBox1.Text = ListView1.Items(x).SubItems(0).Text TextBox2.Text = ListView1.Items(x).SubItems(1).Text End Sub

you must have other key to differentiating the same product_name.

this following is an example code, modified as you needed. [CODE]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[/CODE]

Using Setup And Deployment Project. New Project -> Setup And Deployment Project.

> How to get current Selected Row in dataGridview try this : Dim i As Integer = CInt(ListView1.SelectedItems(0).Index) TextBox1.Text = ListView1.Items(i).SubItems(0).Text TextBox2.Text = ListView1.Items(i).SubItems(1).Text

[code]label1.Text = dateTimePicker1.Value.ToShortDateString();[/code]

I don't know where you display the searching data. But i give an example searching with listview. Try this example : Private Sub cmdSearch_Click() Dim con As ADODB.Connection Set con = New ADODB.Connection Dim rsSearch As ADODB.Recordset Set rsSearch = New ADODB.Recordset con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ListofMembers.MDB;Persist Security …

who

needed a combobox to display,textbox for input and button. [code]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ComboBox1.Items.Add(TextBox1.Text) End Sub[/code]

Set KeyPreview as True on form properties. Then add this following code : [CODE]Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'make sure KeyPreview is True on Form Properties 'On Error Resume Next Select Case KeyCode Case vbKeyUp MsgBox "Up" Case vbKeyDown MsgBox "Down" Case vbKeyLeft MsgBox "Left" Case vbKeyRight …

try this following code, this code only allowed number entered on textbox : [code=vb]Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If (Microsoft.VisualBasic.Asc(e.KeyChar) < 48) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 57) Then e.Handled = True End If If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) Then e.Handled = False End If …

Try this : [CODE] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim btn As Control For Each btn In Me.Controls If TypeOf btn Is Button Then btn.ForeColor = Color.Blue End If Next End Sub[/CODE]