Posts by abu taher

then it should display a record existing with farzan or farhan or any other record having far in the record.

where it will display? like any where.......... drewpee write nice. actually it depend on you.

rs.Find "first_name='" & Trim(txtsearch.Text) & "'"

this type of code not use more:-/. so I attach some sample project. you can try it. I don't know how much benefit you will get.....:?:

I will try your suggestion. But I use pdw to make setup file in another computer. now it is ok and solve my problem. I don't know how and why?

'C:\Documents and Settings\Mendoza\Desktop\mis system\DBAddress.mdb'.

is your file in that above target folder? if yes then plz check your all connection are same as above (if you use another connection other). if yes then plz check your address bar in my computer. does it show same as above?

Now, if you do not have an error handler, then it should end up highlighting the line that caused this error and once again,
Good Luck

in my project no error show. it run well. If I run the exe in another pc then this msg show. I copy some ocx and dll file with it.
another thing if I made a setup file with PDW it not complete. it show a error msg.
"unexpected error number 70 has occurred. Permission denied. "

I type 2009 in mask edit box and select August from a combo box. then I press report button for report. then show this msg:
"run time error 713
Application - defined or object defined error"
another thing when I run the exe of this project in another pc then show this msg.

try to find out some sample project in web with search engine. and then review it. if you have no idea about it then it is so difficult to make you understand.

nice.........:)go ahead and start it and when finish it we will also enjoy it...........:)

I think there is no way, without use path.........

if you mean this: import data from excel spreadsheet to access table then use this

'replace this "c:\temp\filename.xls" with your excel filename.

Private Sub ImportXLSheets()

Dim WrksheetName As String
Dim i As Integer
Dim xl As Object
Set xl = CreateObject("Excel.Application")

xl.Visible = True
xl.Workbooks.Open "c:\temp\filename.xls"

With xl
.Visible = True
With .Workbooks(.Workbooks.Count)
For i = 1 To .Worksheets.Count
WrksheetName = .Worksheets(i).NAME
DoCmd.TransferSpreadsheet (acImport), acSpreadsheetTypeExcel97, WrksheetName, "c:\temp\filename.xls"
Next i
End With

End With
Set xl = Nothing

End Sub

Can u pls post some of the links helpful to create front end design using visual basic and few code examples for a single base station with many number of receivers

what You mean? more clear.

you can use a sound manually. use this code in module name sound

Public Declare Function PlaySound Lib "winmm.dll" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

use this in form

sound.PlaySound "C:\start.wav", 1, 1

I use a power supply tester and it got power in motherboard.

see the attachment.

I check motherboard. It got the power. any other way to check the power supply?

>>my friend suggested me to use Cristal Reports(which i am not able to find for VB 6.0)
Cristal reports is a different software. its not able in vb6. you need to collect it.
>>is there any better way of using reports or how to use cristal reports..
it is easy to use data report of vb6. so you need do this like:
1. project>add data environment
2. project>add data datareport
data environment connect with database and data report connect with data environment. then design the data report.

you mean this?

Private Sub Form_click()
Print Date; Time
End Sub

I don't understand this: when form is print i get to see the day & time events took place

you mean no hdd serial number show? if your hdd connect with primary master then it automatically show when you run this project. in my pc it show and it show the hdd serial number what is write on body of hdd. i don't understand what problem with you.

after shutdown when I start it again then the pc not start. when I press the power button nothing occurred. I check the power button and the connection. all ok. I disconnect the cable of power button and start it manually by connect the pin but nothing happened. what I need to do?

ok. please try it again.

use a timer control for spalsh screen. if u need to make a transparent form then try this.

I think debasis Idea is nice. but waltp said on your topic (what you want to know)

u need service pack 6 of vb6. download it from Microsoft site.

I think You can use. like 4.5 for xp.

How to link or connect MS Access 2003 database with MS Visual Basic 6.0 for creating salary sheet?

Please anyone help me in datails. Or suggest me, Which verson of visual basic I can use as a beginner in programming side.

From
Amit

I can tell you a very simple way. like:
put a data control in your form. go to data control properties. select database name and then select the record source ( table name).
one thing you need service pack 6 (vb) for use office 2003.
you can use visual basic 6

try this.

it may help you. this

so far I know, 250 is last size:confused:. u can try it.

for more, you can check it a another computer. I think then u can find your problem.

this code show c drive serial number

Private Sub Form_Load()
      
          'Show drive serial number for the current drive
          MsgBox " Drive serial number for " & Left(App.Path, 1) & ": " & GetDriveSerialNumber
          End
      
      End Sub
      Public Function GetDriveSerialNumber(Optional ByVal DriveLetter As String) As Long
      
          Dim fso As Object, Drv As Object
          
          'Create a FileSystemObject object
          Set fso = CreateObject("Scripting.FileSystemObject")
          
          'Assign the current drive letter if not specified
          If DriveLetter <> "" Then
              Set Drv = fso.GetDrive(DriveLetter)
          Else
              Set Drv = fso.GetDrive(fso.GetDriveName(App.Path))
          End If
      
          With Drv
              If .IsReady Then
                  DriveSerial = Abs(.SerialNumber)
              Else    '"Drive Not Ready!"
                  DriveSerial = -1
              End If
          End With
          
          'Clean up
          Set Drv = Nothing
          Set fso = Nothing
          
          GetDriveSerialNumber = DriveSerial
          
      End Function

click on 'Go Advanced' when the page will open, you will see a attachment button bellow of page.

No declarations at all.
1. Create a form and add two textboxes; TextBox1 and TextBox2
2. Add a command button; CommandButton1
3. Copy the code below to the code window.
4. Run the program, enter the number in TextBox1 and click CommandButton1...

Function Getword(strNumber)
Dim strtemp As String
Dim x, y, z As Integer
x = Val(Mid$(strNumber, 1, 1))
y = Val(Mid$(strNumber, 2, 1))
z = Val(Mid$(strNumber, 3, 1))

If Len(strNumber) = 1 Then
        strtemp = strtemp + Whole(Val(strNumber))
        GoTo 20
ElseIf Len(strNumber) = 2 Then
        If x = 1 And y = 0 Then
                strtemp = strtemp + " Ten"
        ElseIf x = 1 And y = 1 Then
                strtemp = strtemp + " Eleven"
                GoTo 20
        ElseIf x = 1 And y = 2 Then
                strtemp = strtemp + " Twelve"
                GoTo 20
        ElseIf x = 1 And y > 2 Then
                strtemp = strtemp + Whole2(y) + "een"
                GoTo 20
        ElseIf x = 0 And y > 0 Then
                strtemp = strtemp + Whole(y)
                GoTo 20
        ElseIf x = 0 And y = 0 Then
                strtemp = ""
                GoTo 20
        Else
                strtemp = Whole2(x) + "y"
                If y > 0 Then strtemp = strtemp + Whole(y)
                GoTo 20
        End If
        
ElseIf Len(strNumber) = 3 Then

        If x > 0 Then strtemp = strtemp + Whole(x) + " Hundred"
        If y = 1 And z > 2 Then
               strtemp = strtemp + Whole2(z) + "een"
               GoTo 20
        ElseIf y = 1 And z …

not clear, more details. what kind of record you want to save in hard drive? in hard drive where you want to save? in notepad file or other type?

try this

Private Sub cmdStart_Click()
While ProgressBar1.Value < ProgressBar1.Max
Do
ProgressBar1.Value = ProgressBar1.Value + 1
text1.Text = (ProgressBar1.Value / ProgressBar1.Max) * 100 & "%"
Loop
Wend
End Sub

need codes for saving in pad or harddrive

need more details. what you want to save?

wrong forum you submit your thread.

free? or purchase?

I don't understand whats your problem?

I don't understand what the description. the head line is different from description.

use 2 instead 3. like

s = Space(2)

try this

Private Sub Command1_Click()
Dim a As String
Dim b As String
a = Text1.Text
b = Text2.Text
s = Space(3) '3 mean how many space....you can change it
Label1.Caption = a + s + b
End Sub

label1.caption = text1.text + text2.text

I give you a very simple code. you can modify it as your requirement.

please check it.

thank you all for helping..........

could i add items to combo box from database ? (instead of adding in form)

add mean? specific Item or load all Item in run time? details

qveen72..where i can get this "Package & Deployment Wizard"..?

you will get it in Microsoft vb.6 tools from all program menu. try to find it a fresh copy of vb6. for make exe try to follow what they said. like kinwang2009 .

if you have no question about this topic then please mark it solve.

sorry for that. It never will be occur.

you said option!!! somebody will misunderstand with it. cause option button is different thing in vb6. the above code is better for do. its nice vb5prgrmr. ok try another

If Combo1.Text = "apple" Then formapple.Show

You can try this.

then mark it solve. and how u solve it, post here. then others can understand it

I think u can use it

Set rs = Adodc1.Recordset

With rs
        .Close
        .Source = "select * from Table where TITLE like '%" & Text1.Text & "%'"
        .Open
        
End With
    DataGrid1.ReBind