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]

Add reference : Microsoft CDO For Windows 2000 Library 5 textboxes, 1 button Try This : [CODE]Private Sub Command1_Click() On Error GoTo ErrHandler Dim oConfig As New CDO.Configuration Dim oMsg As New CDO.Message Label1.Caption = "" With oConfig.Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServerPort) = 465 .Item(cdoSMTPServer) = "smtp.mail.yahoo.com" .Item(cdoSMTPAuthenticate) = cdoBasic …

The best? PHP i think (for me). You also can use [URL="http://www.phpframeworks.com/"]framework[/URL] like [URL="http://codeigniter.com/"]CodeIgniter[/URL], [URL="http://cakephp.org/"]CakePHP[/URL], etc to develop your website.

`this.textBox1.KeyDown += new System.Windows.Forms.KeyEventHandler(this.textBox_KeyDown);`

Troy

use this api function estella : [code=vb] Private Declare Function inet_addr Lib "wsock32.dll" (ByVal s As String) As Long Private Declare Function SendARP Lib "iphlpapi.dll" (ByVal DestIp As Long, ByVal ScrIP As Long, pMacAddr As Long, PhyAddrLen As Long) As Long Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (dst …

using odbc.. download the odbc connector [URL="http://www.mysql.com/downloads/connector/odbc/"]here[/URL]

great code :)

Hi Luke...Welcome to Daniweb Friend :) visit this following links to learn how to connect access with vb. - [URL="http://www.timesheetsmts.com/adotutorial.htm"]VB And Ms Access[/URL] - [URL="http://www.vb6.us/guides/vb6-database-guide"]VB6 Database Guide[/URL] Then try it, if u get some problem post it here. Happy Coding Friend :)

we don't remember days. we remember moments. Make moments worth [COLOR="Green"]remembering.[/COLOR]

[QUOTE=VIeditorlover;571343]just use registry as much as you can, ideally into many branches :-)))))))[/QUOTE] i like this..use registry.

Try : Private Sub grid1_Click() With grid2 a = grid2.Rows - 1 b = grid1.RowSel For j = 1 To grid1.Cols - 1 grid2.TextMatrix(a, j) = grid1.TextMatrix(b, j) Next j .AddItem "" End With End Sub

To call form2 you must to make an object of form2 : [code] Dim MainMenu as New Form2 MainMenu.show[/code] To close form1 after called form2 : - Don't use Me.Close cause it will close application. - Use Dispose(), set it to false. e.g : [code] Dim MainMenu as New Form2 …

reader is not declared..

Right Click On project name -> Add -> Data Environment

Set MultiSelect = 2 - Extend in Listbox properties. Press "Ctrl" while you select items. Private Sub Command1_Click() Dim i As Integer For i = 0 To List1.ListCount - 1 If List1.Selected(i) Then Text1.Text = Text1 + List1.List(i) + "," End If Next End Sub

-534

try this : Public Sub AutoComplete(ByVal cmb As ComboBox, ByVal e As KeyEventArgs) Dim sTypedText As String Dim iFoundIndex As Integer Dim oFoundItem As Object Dim sFoundText As String Dim sAppendText As String Select Case e.KeyCode Case Keys.Back, Keys.Left, Keys.Right, Keys.Up, Keys.Delete, Keys.Down Return End Select sTypedText = cmb.Text iFoundIndex …

[this will solve it](http://www.vb-helper.com/howto_store_image_in_access_db.html)

You want to sort items on listbox? Try this : lstCountries.Sorted = True

[QUOTE]please say how to make a simple antivirus in vb 6.0 with instruction [/QUOTE] how about make your own thread...Don't rise old thread. actually abu taher was provide some links about how to make antivirus..