AndreRet

Which line of your code is showing an error. If no errors, what happens when you click on the search button?

What OS are u using? XP, Vista or before?

I agree with tinstaafl. Problem is that when there are more than 1 dot in a value, it might return the incorrect information. I would rather use something like this - Public Sub SplitIt(strText As String, txtResult As TextBox) Dim SplitPoint As Integer Dim strPart1 As String Dim strPart2 As …

You have a second post open, this has not been marked as solved. Please do so, thanx. Nice code rishif2...

Not sure in vb4. In vb6 you will be using something similar to - 'Module Public Const Drive_Unknown = 0 Public Const Drive_NoRootDir = 1 Public Const Drive_Removable = 2 Public Const Drive_Fixed = 3 Public Const Drive_Remote = 4 Public Const Drive_CDRom = 5 Public Const Drive_RamDisk = 6 …

This is .Net code. I have asked that this post be moved there.

If rec.EOF = True Or rec.BOF = True Then MsgBox "No Records Found." End If Your sql statement is also open to errors... rec.Open "SELECT * FROM tbl WHERE id=" & inputted & "'", con, 2, 3

Add the following to your code... With frmYourSecondFormNameHere With list_stud .label1.caption = ID_no .label2.caption = lvStudentInfo.SelectedItem.SubItems(1) .label3.caption = lvStudentInfo.SelectedItem.SubItems(2) .label4.caption = lvStudentInfo.SelectedItem.SubItems(3) .label5.caption = lvStudentInfo.SelectedItem.SubItems(4) .label6.caption = lvStudentInfo.SelectedItem.SubItems(5) .Show 1 End With End With

Something like this... Add a reference to MS Scripting Library Private Sub Command1_Click() 02 Dim cdpath As String 03 Dim fso 04 Dim drv 05 06 07 Set fso = CreateObject("Scripting.FileSystemObject") 08 Set drv = fso.Drives 09 For Each drv In fso.Drives 10 If drv.DriveType = 4 Then 11 cdpath …

No problem stated so we can not assist without knowing what it is...

Do the following... with adodc1 .ConnectionString = connectdb .RecordSource = "Select * from 'tablename'" .Refresh 'dont know the next action .AddNew ''If your textboxes is connected to the respective fields, data will be captured automatically... .Update end with 'what does this code mean?

Have a look at [this](http://www.vbforums.com/showthread.php?412980-How-to-make-MDI-Form-fix-with-user-resolution) link, some very helpful hints there. OR you can grab a sample app from [this](http://www.vbforums.com/showthread.php?231435-VB-Fixed-Size-MDI-Form) link which works 100%

Why don't you just unload the form showing and load frmCategory? I think I'm missing something here... :)

Try the following... Private Sub FlexGrid1_dblClick() ''Use an if statement to check if the timer is enabled... If Timer1.Enabled = True Then Timer1.Enabled = False MsgBox "double click" End If End Sub

Grid.TextMatrix(0, 1) = "This is caption for first coloumn"

Mmmm. .ToString is .net code, will not work in vb6. WHERE Category = '" + CategorySorter.Text + "' AND DateAdded >= DateValue('" & DTPicker1.Value & "') AND DateAdded <= DateValue('" & DTPicker2.Value & "')" ''Remove extra AND... Rather set up your dtpicker to display your dates via the controls properties. …

I agree with your assesment. It is faster and less error prone to just drop the auto increment and create your own by counting records from your table. Please mark as solved, thank you.

Saving to a database you will need a connection to the database. This is dependant on the database used (access, MySql, MS Sql etc.). Once a connection has been established, you need to build a recordset (input from your respective fields) and then update the record, which will be a …

Try [this](http://www.dreamincode.net/forums/topic/133547-msr206-magnetic-card-reader/) ink for some sample code...

@killer88, It seems you were looking for vb.net code, which is a different forum from vb6. :) Irrespective, it seems that your problem was solved, please mark as such, thanx.

Fortunately, creating a custom parsing procedure is also unnecessary because VB provides a quick easy way to turn of the ampersand-to- underscore behavior. In a label control, the **UseMneumonic** property turns this behavior on and off. By default, Visual Basic sets this property to True. In the label's property sheet, …

@manafva, Please open your own thread with your question. This thread belongs to someone else... change code > connection to Call connection provided that it is in the same form module or declared publically...

ahhh, ok

Function AddLevels(combo As ComboBox)

You are almost on the right track. :) Try the following... Public Sub Test() Dim cmbMyBox As ComboBox ''Do Not use ComboBox, it is a reserved name for ... combobox Dim i As Integer For i = 1 To 80 If cmbMyBox(i).Text = "Level 4" Then ''Assuming that you have …

Please mark as solved if it is working fine now, thank you.

> I want to first off say, I don't know Visual Basic What you want to achieve by checking if a USB drive is connected or not, is quite advanced in vb6. You'll be making use of tons of windows API's to check a pluged in device, what kind of …

Some more [here](http://social.msdn.microsoft.com/Forums/en/sqlsecurity/thread/50b5bd64-9545-4b63-bb2a-f729f64dd9e6) and [here](http://stackoverflow.com/questions/1812541/cannot-create-sspi-context).

If I remember correctly, the dll file forms part of crystal reports. You need to distribute ALL crystal reports files when installing on a foreign (non-testing) pc.

Private Sub CountMe(prg As ProgressBar) mintPause = mintPause + 1 If mintCount < 0 Then mintCount = mintCount + 1 prg.Value = mintCount lblCount.Caption = "(" & mintCount & "%)..." ' frmSplash.Refresh ElseIf mintCount < 100 Then mintCount = mintCount + 2 prg.Value = mintCount lblCount.Caption = "(" & mintCount …

Do you want to show it as one image on the entire form? To repeat the image as in html/css, your app will eat resources big time.

The following function gets a WMI object and then gets a collection of WMI_BaseBoard objects representing the system's mother boards. It loops through them getting their serial numbers. Private Function SystemSerialNumber() As String Dim mother_boards As Variant Dim board As Variant Dim wmi As Variant Dim serial_numbers As String ' …

I am presuming that your text boxes is linked to your data control? The error is refering to incorrect data to your table in your database, i.e. if one of your fields will only accept a date or a number, but the textbox contains something else than that, the error …

Data mismatch error refers to a mismatch of a value returned i.e. if you told the code to return an integer (numbers) but the data returned is a string (letters etc.), the error will be fired. What did you declare "jarak" as, an integer or a string?

Perfect tinstaafl!!

You need to make sure that all the reports is on the server OR on the machine that you are installing to. If it is going to run on a network, the reports has to be on the server AND your connection to the reports must refer back to the …

''Change this around... ''First move to last record... .MoveLast ''Then get the value... NewInv1 = rs!sinv_no newinv2 = NewInv1 + 1 txtinvno.Text = newinv2

Use the format function to first add a date and check the date accordingly.... Sub search() 'search if id registered With ado .ConnectionString = connectdb .RecordSource = "Select * from info where id = '" & Text2 & "'" .Refresh If .Recordset.RecordCount > 0 Then Text3 = .Recordset!id Text4 = …

What exactly are you trying to do? Calculate to integres and get the sum, get a total sum...

@rajeev, That should be - include_once() :) Oh, almost forgot, me too. ;)

> Finding sum of all the numbers from 1 to 100 by loop method Dim x As Integer, y As Integer y = 0 For x = 1 To 100 y = y + 1 Next x txtSum.Text = y

It seems that you have hard coded the path to the database. ALWAYS install the database in your application folder. Then in your code, use "App.Path" and the database name.

@alfadz, please see our posting rules. We need to keep it in English. Thanx for your post though... @ponnu, the below part of alfadz's code will do the trick - Private Sub Init_ListviewDv() Rem=====pour mettre à jour le listview ======= With LviewDv .ListItems.Clear .ColumnHeaders.Clear .ColumnHeaders.Add , , "Nop", .Width / …

What exactly is it that you want to achieve? If the above was what you were looking for, great, please mark as solved then, thanx.

Nope, inpitbox can accept any value given to it. You have to state that cancel can be accepted by doing it as such - ''In your code BEFORE you open the input box... On Error GoTo Err Inputbox ... ''Rest of your inputbox code here... Exit sub Err ''User pressed …

I don't see why you are using an if statement again, it was already called in the function. What basically happens in your if statement is that you check if the function was called, which it was, hence all admin returns. Just call the function.. <?php isitadmin($user_id) ?> Rather put …

That is because the report you are trying to show is a vb created report and not a crystal report... It is the same as you want to open a ms word document with ms powerpoint, it will not work.

In these parts for back, next etc, shouldn't Page be $Page? echo " <a href ='$_SERVER[SCRIPT_NAME]?Page=$Next_Page'>Next>></a> ";

AND they all come with perfect sample code :)

Rep'ed. Now mark as solved please :) Thank You