cometburn

hope this thread would help you... [URL="http://www.daniweb.com/forums/thread112160.html"]http://www.daniweb.com/forums/thread112160.html[/URL]

this is from Madboy of VBForums [QUOTE] What is a module you ask? A module is used to store all your functions and public routines seperately. Apart from it keeping your code editors window clean, it removes the need for repetitive typing. For example, it is better to add code …

Try this and let me know if it worked... [QUOTE]Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Command1_Click() strDir = "<your files …

im looking for the one that reads the motherboard model, but i have come across this thread.. maybe this could be a little help to you guys... [URL="http://www.vbforums.com/showthread.php?t=431130&highlight=motherboard"]Click me[/URL]

[Code=vb] 'where 10000000.99 is the Amount MsgBox Format("10000000.99", "#,###.00") [/Code]

i encountered this error... you must have the dll together with your package. during P&D make sure you include that.

try this and let me know if it worked.. [QUOTE]Dim RptPic As StdPicture Dim rptImg As RptImage 'Locate pictures location Set RptPic = LoadPicture("D:\Jesus Reference\Desktop\vistatrends.jpg") 'img is the RptImg on the datareport Set rptImg = DataReport1.Sections("Section2").Controls("img") set rptImg.picture = RptPic[/QUOTE]

[code=vb] 'strSQL is the query string 'dName is the Fieldname to be displayed 'dID is the ID field to be inserted on the Itemdata 'cbo is the name of the combobox that will contain the datas Sub populateComboBox(ByVal strSql As String, ByVal dName As String, ByVal dID As String, ByVal …

ONLINE for me means Using the Internet. I don know with others. So, Please clarify.

can you show us your code? so we could see how far you been doing..

Try this... [code=vb] With MasterList.SelectedItem myID = .Text lblEmpNo = .SubItems(1) txtLastname = .SubItems(2) txtFirstname = .SubItems(3) txtMiddlename = .SubItems(4) end with [/code]

[Code=vb] 'if your list2.text is a Number strSQL = "SELECT * FROM Usages WHERE UsageID = " & Cint(List2.Text) & "" [/Code] A String is a String... A number is a Number..

mySQl connection string (requires a mysqlODBC driver) [Code=vb]Public Const sqlCon = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=<Server address>;DATABASE=<Database name>;USER=user;PASSWORD=password;OPTION=3"[/Code] Access Connection string [Code=vb] sqlCon = "PROVIDER= MICROsoft.jet.oledb.4.0;persist security info=false;data source=" & App.Path & "\Database.mdb" [/Code] hope this helps

Only one answer to that.. [B]Employee Care[/B]

form1.show vbmodal

Jx, he wants to generate the source code from the exe he has which is i think will give anyone a hell of a headache.

first download mysql ODBC driver 3.51 and instal it to your machine. [code=vb] ' the connection string Public Const sqlCon = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=<server address>;DATABASE=<database name>;USER=root;PASSWORD=;OPTION=3" Dim rs As ADODB.Recordset Dim adoConn As ADODB.Connection Set adoConn = New ADODB.Connection adoConn.ConnectionString = sqlcon adoConn.Open Set rs = New ADODB.Recordset rs.ActiveConnection …

could you post your code? or attach a sample of your project?

mySql Date Format is: Year-Month-Date which is YYYY-MM-dd

hmmm... seems like a school project ei? But why use DAO?

Why not use a date picker instead?

Check this out.. [Code=vb] Dim rs As ADODB.Recordset Dim adoConn As ADODB.Connection dim Str as string Set adoConn = New ADODB.Connection adoConn.ConnectionString = sqlcon 'sqlCon is your connection string adoConn.Open Str = "SELECT " & Text1.Text & " FROM table1" Set rs = New ADODB.Recordset rs.ActiveConnection = adoConn rs.LockType = …

Lets assume that you already have the recordset with the records inside it. this is how i populate a combobox... [Code=vb] rs.Movefirst Do While Not rs.EOF cbo.AddItem (rs.Fields(<fieldname here))) rs.MoveNext Loop [/Code]

[Code=vb] Dim rs As ADODB.Recordset Dim adoConn As ADODB.Connection Set adoConn = New ADODB.Connection adoConn.ConnectionString = sqlcon adoConn.Open Set rs = New ADODB.Recordset rs.ActiveConnection = adoConn rs.LockType = adLockOptimistic rs.CursorLocation = adUseClient rs.CursorType = adOpenDynamic rs.Open sqlstr [/Code]

hmmm... Could you post your code? We'll see if we can help.

Calling this function will empty all the textboxes within a form... [Code=vb] Public Sub ControlStatus(frm As Form, stat As Boolean) On Error Resume Next Dim ctrl As Control For Each ctrl In frm If TypeOf ctrl Is VB.TextBox Then ctrl.text = "" End If Next End Sub[/Code]

what are you trying to get here? why do you want to add an item from a textbox?

On my Opinion... your gonna get the result of txtQty * txtPrice when the value entered on txtQty is greater than 1... So... [Code] if txtQty >= 1 then lblval.caption=Val(txtQty) * Val(txtPrice) else lblval.Caption = txtPrice end if [/Code]

[Code] Private Sub DataGrid1_Click() dg.MarqueeStyle = dbgHighlightRowRaiseCell myVariable = DataGrid1.Columns(0).Value End Sub [/Code]

hmmm... creating a table on runtime? what for?

[Code=vb] Dim Total As Integer Private Function sum(a, b) Dim c As Integer sum = a + b End Function Private Sub Command1_Click() Dim a, b As Integer a = 1 b = 2 Total = sum(a, b) MsgBox Total End Sub [/Code]

Here is a code for editing a table on an access database. The logic is there, you just have to edit. [Code=vb] Dim conn As New ADODB.Connection Dim dbPath As String Dim strEdit As String dbPath = "C:\Documents and Settings\coje01\Desktop" conn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & dbPath & "\Training;Uid=Admin;Pwd=godisgood;" …

Select CI.name,I.ServiceID,P.packagename,P.duration,P.price,[I.date],I.timeIn,I.timeOut From CustInfo CI, InDate I, PakInfo P Where [Date] >= <DatePicker1> and [Date] <= <DatePicker2>.... Now to sum up a Column, u can use... Select Sum(<ColumnName>) as Sumof where <You can put the condition here>

could you explain it on a clear way?

for single line comments use single quotes( ' ) for multi line comments this is what i use View --> Toolbars --> Edit On your code highlight the lines you want to comment then on Edit Toolbox look for the comment block and click it..

You will know a variables value on the immediate window simply by typing... ?myVariable after pressing enter, the value of the variable will appear below

[URL="http://www.vbforums.com/showthread.php?t=506323&highlight=vb+.net+comparison"]http://www.vbforums.com/showthread.php?t=506323&highlight=vb+.net+comparison[/URL] [URL="http://www.vbforums.com/showthread.php?t=304035&highlight=vb+.net+comparison"]http://www.vbforums.com/showthread.php?t=304035&highlight=vb+.net+comparison[/URL] [URL="http://www.vbforums.com/showthread.php?t=463011&highlight=vb+.net+comparison"]http://www.vbforums.com/showthread.php?t=463011&highlight=vb+.net+comparison[/URL] [URL="http://www.vbforums.com/showthread.php?t=365884&highlight=vb+.net+comparison"]http://www.vbforums.com/showthread.php?t=365884&highlight=vb+.net+comparison[/URL] [URL="http://www.vbforums.com/showthread.php?t=347782&highlight=vb+.net+comparison"]http://www.vbforums.com/showthread.php?t=347782&highlight=vb+.net+comparison[/URL] [URL="http://www.vbforums.com/showthread.php?t=292286&highlight=vb+.net+comparison"]http://www.vbforums.com/showthread.php?t=292286&highlight=vb+.net+comparison[/URL]

is this what you want to do? [Code=vb] If Form5.Visible = True Then Command3.Caption = "Unhide History" Unload Form5 Else Form5.Show Command3.Caption = "Hide History" End If [/Code]

i didnt read your code. but if writing on a notepad is your problem, i hope this helps. [Code=vb] Dim fso As New FileSystemObject Dim strm As TextStream Set strm = fso.OpenTextFile("c:\test.txt", ForWriting) strm.WriteLine ("String to write") [/Code]

You got it already. The problem is you have to Code it. Lol. Let me look at this one.

Compared to Data Report, CR (Crystal Report) is more advance reporting tool. For more infos you can always go to [URL="http://www.businessobjects.com/"]http://www.businessobjects.com/[/URL] about CR's.

Put a bracket on Date. [Code=vb] 'easier way to open a recordset rs.Open "Select Whofirst,Player, [Date], Status, Level, End_Time from yyyy", YourConnection, , adOpenDynamic, adLockPessimistic [/Code]

Heres the code but it only calculates local calls. I have to leave the rest on you. :P [Code=vb] Dim LocalCall As Boolean Dim CallMinute As Integer Dim TotalCall As Integer 'this is to check if it is a local call If txtArea.Text = "908" Or txtArea.Text = "732" Or …

Date you say? [Code=vb]TDBDate1.Text = Date[/Code]

a suggestion, Why not Check if the control is a timer? by that way you can disable each timer in your form [Code=vb] For Each ctl In Me.Controls If TypeOf ctl Is Timer Then ctl.Enabled = False End If Next ctl [/Code]

Jai what exactly is the problem?? i could probably help if you state the exact problem you have.

r u using data report or crystal report? on my opinion its how you arrange the alignment of labels on your report.

i hope this would help you. though its not what your looking for. [url]http://www.vbforums.com/showthread.php?t=503894&highlight=pen+drive[/url] [url]http://www.vbforums.com/showthread.php?t=321526&highlight=pen+drive[/url]

[code=vb] 'this is your string "Select ID, Make, Model, PlsPerBBL, Size, Processor, Location, From MeterData Where MeterNo = 'FQ-805 8" IN'" [/code] Location has a comma plus correct MeterNo value to '"FQ-805 8 IN"' [code=vb] 'correction "Select ID, Make, Model, PlsPerBBL, Size, Processor, Location From MeterData Where MeterNo = 'FQ-805 …

go to Components then add Microsoft Winsock Control. then use the code below.... [code=vb] lblHost.Caption = "Hostname: " & sock1.LocalHostName 'where lblHost is a label, sock1 is a winsock control 'you can also get the local Ip by .LocalIp property [/code] hope this helps.