- Strength to Increase Rep
- +7
- Strength to Decrease Rep
- -1
- Upvotes Received
- 7
- Posts with Upvotes
- 7
- Upvoting Members
- 6
- Downvotes Received
- 0
- Posts with Downvotes
- 0
- Downvoting Members
- 0
136 Posted Topics
Re: enclose the table name in [] like [hello world] hope it solves ur problem Regards Shaik Akthar | |
Re: If crystal report is installed, then u can find the Crystal Report Viewer OCX control in VB IDE in the components. Add the crystal report control to your form and configure it to show the required report. [code] 'use whatever is the path of your report 'i have assumes that … | |
Re: Dont open the recordset in form load event. [code] 'in the module Global con As New Connection Global tel_idx As New Recordset 'in the form load event 'Also dont hardcode the database path 'con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Telephone_Index\Telephone_Index.mdb" 'Write something like this con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Telephone_Index.mdb" 'Remove this line … | |
Re: Try This Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim objRecip As Recipient Dim strMsg As String Dim res As Integer Dim strBcc As String 'ADDED LINES ********* Dim nameSel As Outlook.SelectNamesDialog 'ADDED LINES ********* On Error Resume Next ' #### USER OPTIONS #### ' address for Bcc … | |
Re: As per your code my assumptions 1) conn is ADODB.Connection for access DB 2) iMUSIC is table in SQL Server DB Private Sub ListTemp_Click() Dim sqltambah As String 'Better Add Error Handler Code also On Error goto ListTemp_Click_Error 'if you already have an active ADODB.Connection to your SQL Server Schema … | |
Re: U need not select the items to remove them. Loop thru all the items in the listview with index for tracking the item against the loop variable. compare the values of each item and delete which ever match the criteria. when deletion occurs the indices of the items following the … | |
Re: Try this. [code] Private Sub cmdSearch_Click() On Error GoTo errhan Set rst = New ADODB.Recordset rst.CursorLocation = adUseClient SQL = "Select * from profile2 where name like '" & Trim(fldSearch.Text) & "%'" rst.Open SQL, con, adOpenKeyset, adLockReadOnly MSFlexGrid1.Clear While Not rst.EOF 'replace field1,field2 etc with the fields u want MSFlexGrid1.addItem … | |
Re: u can use sequential/bubble/quick sort techniques. here is one of the logic for sorting [code] Dim a(5) as Integer Dim i as Integer Dim j as Integer a(0) = 10 a(1) = 9 a(2) = 13 a(3) = 45 a(4) = 7 For i = 0 to 4 For j … | |
Re: Corrected Code [code] Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyC Then If Shift = 2 Then Clipboard.Clear Clipboard.SetText grd.Clip End If End If End Sub [/code] PS: For this to work set the KeyPreview Property of the your FORM to "True" Regards Shaik Akthar | |
Re: Hi, You can delete any file from the disk using the KILL command Syntax: KILL <filename with path> Before deleting any file you can check if it exists in the path or not first. [CODE] If Dir("D:\PRLIST.XLS", vbNormal) <> "" Then If MsgBox("DELETE FILE?", vbYesNo + vbInformation, "DELETION") = vbYes … | |
Re: Hi!!! Use the following syntax for the SQL Query [code] SELECT * from customer where customercode = ? [/code] ? will display the parameter in the parameter tab | |
Re: with reference to QVeen72 earlier post, if u have copied and pasted the code for the SQL Query then maybe the table name u have got wrong. [code] Select * From MyTable Where Fees Between ? And ? [/code] Here replace the MyTable with relevant table name of ur database. | |
Re: plz post the sample code. or upload the project in ZIP format. Regards Shaik Akthar | |
Re: u can maintain a table in the schema itself which maps the UIDs to their respective excel files. read the data from the table using adodb or any other way u can access the data and open the specific file related to that UID. | |
Re: Plz Post your query here. will help u out. | |
Re: Go to Tools -> Options Put a checkmark to Hidden Objects | |
Re: Please refer my thread for the requirement [url]http://www.daniweb.com/forums/thread139729.html[/url] hope this solves ur doubt. | |
Re: try the following thread from another forum. may be something u can get from there. Also there is another freeware called ghostscript which if totally free, s its free. u can find it on sourceforge. [url]http://newsgroups.derkeiler.com/Archive/Comp/comp.text.pdf/2005-08/msg00053.html[/url] Regards Shaik Akthar | |
Re: Hi! I don't know how u have managed to assign the client number to a variable. but here is one way to do so. when u execute the query using the Execute function, all the values retrieved are as a recordset. For Eg: [CODE] Dim myGrade as String Dim myClientNo … | |
Re: Use Form_KeyDown event [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 vbKey 'Then Find which key you want to use from the list below 'Code to run when key is pressed End Select … | |
Re: Plz if u can post the little code u have tried and failed, what database u r using, tables and their field names involved in this, then it will b easy and quick for us to help u with the problem. Regards Shaik Akthar | |
Re: Try following links. u will get some idea of storing images in a SQL Server table. [url]http://www.codersource.net/csharp_read_write_images_database.aspx[/url] [url]http://www.c-sharpcorner.com/UploadFile/mamtam/AddandRetrieveImages09232005080918AM/AddandRetrieveImages.aspx?ArticleID=505613ea-3493-420b-96ef-5addf5b77ca4[/url] | |
Re: what is the error msg u r getting. | |
Re: Check the following thread. I have written some code. May be of some help. If not then u may post back for further requirement stating some sample data. [url]http://www.daniweb.com/forums/thread139729.html[/url] | |
Re: Check out this thread. [url]http://www.daniweb.com/forums/thread138971.html[/url] If you want to build some more graphical games then check out this link. [url]http://www.visualbasic.happycodings.com/Graphics_Games_Programming/index.html[/url] [url]http://www.vbforums.com/showthread.php?t=572682[/url] | |
Re: Do u want to write this code : a) from within an Excel file in VBA Editor? OR b) from within Word file in VBA Editor? OR c) from VISUAL BASIC IDE? Regards Shaik Akthar | |
Re: Please post some sample data. Say 5 records for each table. and the desired result output. I will try help u out with this. by the way, which db r u using? MS-Access or SQL Server or... Regards Shaik Akthar | |
Re: Plz post the procedure u have coded for the AddNew button. and for the other error also for the Show button | |
Re: Can u plz post the sample code where u r populating the flexgrid with the records? | |
Re: FlexGrid is not editable Grid. you cannot edit MSFlexgrid/MSHFlexGrid directly. u have to use another TextBox control to display covering that cell and after data is input and validated in that text box, it can be updated to the Grid. Instead of using 2 grids, u can use a DataGrid … | |
Re: could not get what your idea or requirement. plz elaborate with some example. | |
Re: [code] rs.Open "Select PCODE from Product WHERE PCODE = '" & Trim(Text1.Text) & "'", cn, adOpenKeyset, adLockPessimistic If rs.BOF = False Then MsgBox "The Product Code is Already Exist!", vbCritical If rs.State Then rs.Close Set rs = Nothing Exit Sub Else [/code] | |
Re: U can find solution in the following link. [url]http://www.vbforums.com/showpost.php?p=2172&postcount=4%3Cbr%20/%3E[/url] | |
Re: data reports in VB6 / Crystal Reports. any of these two would be very suitable to generate reports and print them. If u have MSDN installed with your Visual Studio u can find most of the help of using Data Reports along with examples. else look online at Microsoft site … | |
Re: First initialize all text boxes from txt1 to txt7 = "" Then get the data from table using a query for sum of Stunden for different Taetigkeit and populate the textboxes. [code] Private Sub Combo1_Click() Dim rs As New ADODB.RecordSet On Error GoTo Combo1_Click_Error 'This statement calls the Procedure to … | |
Re: Yes and No values are fields that contain only one of two values (Yes/No, True/False, or On/Off). Its size is only 1 bit. Which means it can hold only 1 bit of data. (either a 0 or 1) when using the insert statement put 0 for No and 1 for … | |
Re: Is it in VB or MSAccess forms u r writing the code? Please post the entire procedure which is not giving u the result. | |
Re: omit the keyword DISTINCT b'cos the PARTDETAIL table must have distinct values only (i think) as the item_code field is set to Primary Key. | |
Re: check out the file i have altered and uploaded it. I have altered the Form_Load() and added a new procedure MSFlexGrid1_Click() | |
Re: [CODE] Dim x, n, i As Integer Dim Tot As Double x = Val(Text1.Text) n = Val(Text2.Text) If n <= 1 Or x <= 0 Then MsgBox "Enter Proper Values", vbCritical Exit Sub End If Tot = 0 i = 1 Do While i <= n Tot = Tot + … | |
Re: [CODE] Dim x, n, i As Integer Dim Tot As Double x = Val(Text1.Text) n = Val(Text2.Text) If n <= 1 Or x <= 0 Then MsgBox "Enter Proper Values", vbCritical Exit Sub End If Tot = 0 i = 1 Do While i <= n Tot = Tot + … | |
Re: [code] Dim Exmp As New Excel.Application Dim WB As Excel.Workbook Dim Sh As Excel.Worksheet Set WB = Exmp.Workbooks.Open("C:\abc.xls") Set Sh = WB.ActiveSheet Sh.PageSetup.PrintHeadings = True [COLOR="Red"]Sh.PageSetup.PrintTitleRows = "$1:$3"[/COLOR] WB.Save Exmp.Visible = True Set Exmp = Nothing [/code] | |
Re: [code] Private Sub CommandButton1_Click() With ppSlide1.Shapes(3) 'Each space is termination for a word. .TextFrame.TextRange.Text = "Wing PRR : Total Weight : " .TextFrame.TextRange.Words(1, 3).Font.Bold = msoCTrue .TextFrame.TextRange.Words(4, 3).Font.Bold = msoCTrue .TextFrame.TextRange.Words(1, 3).Font.Color = vbRed .TextFrame.TextRange.Words(4, 3).Font.Color = vbGreen .TextFrame.TextRange.Words(1, 3).Font.Size = 26 .TextFrame.TextRange.Words(4, 3).Font.Size = 30 .TextFrame.TextRange.Words(1, 3).Font.Name = "Tahoma" … | |
Re: Filter your query by comparing the field related to the combobox text, may be something like this, [code] rscombo.Open "select * from Pquery where item_name ='" & Combo1.Text & "'", con, adOpenDynamic, adLockOptimistic [/code] | |
Re: if u have 2 commands and want the 2nd command to run after a certain interval of time, u can use the timer control. During design time; set its interval property to ur required time of pause (in milliseconds), set Enable property to false Now for the coding part, after … | |
Re: Try this but i am not sure. b'cos i have not tried it myself. get back if any problem. [CODE] rscombo.Open "select MAX(MID(item_code,2,10)), ITEM_CODE from production WHERE item_code is not NULL and LEFT(ucase(trim(Production.ITEM_CODE)),1) = 'P' GROUP BY ITEM_CODE " [/CODE] | |
Re: have u gone through the attachment given in your previous post? [url]http://www.daniweb.com/forums/attachment.php?attachmentid=8485&d=1228829120[/url] | |
Re: 'In Form2 [code] Option Explicit Private Sub Form_Load() On Error GoTo Form_Load_Error tcpClient.RemoteHost = "localhost" tcpClient.RemotePort = 1001 Form_Load_Done: Exit Sub Form_Load_Error: MsgBox Err.Number & " : " & Err.Description Resume Form_Load_Done End Sub 'Connect Form 2 to Form 1 Private Sub cmdConnect_Click() On Error GoTo cmdConnect_Click_Error If tcpClient.State <> … |
The End.