2,155 Posted Topics
 | If txtSearchThoughts.Text IsNot "" Then ''Change to .... If Not txtSearchThoughts.Text = "" Then Also, good conventional coding is to use vbNullString and not "" ... :) If Not txtSearchThoughts.Text = vbNullString Then To add error trapping, in the sub where you want to trap... On error GoTo MyErrTrap ''All …  |
 | SQL = "UPDATE Ministers SET Password='" & txtRetype_Password.Text & "', Prefix='" & cmbPrefix.Text & "', Passport='" & NewPicture_Name & "'" & _ " WHERE User_Name ='" & txtUser_Name.Text & "'" Should do it nicely. tried it in your app, it worked fine.... |
| | No, only the vb6 run time files is needed PLUS all thye other object.ocsdsx and dll files is needed, including the databases... |
| | We need much more information, what code do you have already?... what language - vb6, vba?... etc. |
| | Which version of SQL server are you running on your server? Also, you have no username or password in the connection... |
| | If I read this correctly, there is nothing wrong with your first SELECT statement. It is returning Anna because that is (in your own words) the first record returned. Ann is probably record 2. If you want to return the records sorted, add ORDER BY $member ... $query = "SELECT … |
| | "SELECT * FROM Table1 WHERE Accountnumber=" & TextBox1.Text & " AND PIN=" & TextBox2.Text & "" Assuming that account number and pin is ONLY an integer (number) and contains no text... If it does contain text .... "SELECT * FROM Table1 WHERE Accountnumber='" & TextBox1.Text & "' AND PIN='" & …  |
| | As far as I know it is not possible. Have a look at [THIS](https://developers.facebook.com/docs/reference/plugins/like/) page, might contain an answer for you. :) |
| | In your SQL statement, use the WHERE clause... SELECT * FROM YourTableNameHere WHERE YourFieldNameHereHoldingTheIdNum ='" & idnum.Text & "'" Once the record is returned... lname.Text = rs!lname ''rs is your recordset, lname is your field name holding the name value... fname.Text = rs!fname dept.Text = rs!dept Also tru and use … |
| | To print the actual flexgrid, use the following - In a module add this code - Public Sub PrintFlexGridLandscape(ByVal Ptr As Object, ByVal flxData As MSHFlexGrid, ByVal xmin As Single, ByVal ymin As Single) Const GAP = 60 Dim xmax As Single Dim ymax As Single Dim X As Single … |
| | Re: Format Number Assuming that all your numbers will be in the same format, less than 100 and in a listbox, use the following mid statement... Dim xCount As Integer, strNuls As String For xCount = 0 To List1.ListCount - 1 List1.ListIndex = xCount If Mid$(List1.Text, 4, 2) = "00" Then strNuls = … |
 | You need to cancel the minimize property until ALL events are done. It seems that your pc resources are running low when you read from the text file (normally upon opening it). When you try and minimize your form whilst the file is opening, there is not enough resources available … |
| | By using the "LIMIT" function in Sql... SELECT * FROM YourTableName LIMIT 0 , 30 The 0 is where it will start from to how many records to show. If you want to move to the next 30 records, it will look like... SELECT * FROM YourTableName LIMIT 30 , … |
| | With watermark I presume you mean setting a background to a textbox? It is quite involved but I have attached a sample you can use. |
| | You need to change your SELECT statement to - Sql="SELECT * FROM tml_employee WHERE empName LIKE '%" & TheEmpNameVAlueHere & "%' AND EmpSalRate ='" & TheRateValueHere & "' ORDER BY empName ASC" |
| | Debasisdas is correct, you will use an INNER JOIN statement providing that you have indexed your fields in your tables as primary... As he did ask, show us the structure of all tables. |
| | What code do you have so far as the connection to the finger print reader is concerned, that you can show us. From their you will need to get the id, either from a saved picture of finger print or a newly obtained print. |
| | |
 | Scrolling through Daniweb's forums and reply where I can (If I have any energy). :)  |
 | Google is your friend.... See [THIS](https://www.google.co.za/search?q=introduction+to+vb6&sugexp=chrome,mod=9&sourceid=chrome&ie=UTF-8) link |
| | In vb6, add a reference to Excel object library... Open a workbook - Dim objExcl As Excel.Application Set objExcl = New Excel.Application objExcl.Workbooks.Open (Your path to excel file HERE) objExcl.Visible = True Now add some data to row and coloumns... objExcl.ActiveSheet.cells(1, 1).Value = Whatever Data Here |
| | > But the problem is I can't add more then one rows containing the data in the MSHFlexgrid. Whenever I put the nex series of data and click the add button it replace the first row data of MSHFlexgrid That is because you are telling the grid to place your … |
| | @fawa, This thread is 7 years old!!! Please read our posting rules [HERE](http://www.daniweb.com/community/rules). |
| | You need to give us much more information... DO you need a script for a web page? If so, wrong forum, this is vb6... Making use of ms outlook version? What code do you have so far to show some effort from your side? |
| | Can you elaborate more on the something like part error of schema. With a full on error I'm sure we can help. It seems that the xml schema loaded incorrectly... |
| | Nope, it will not work... Assuming that you are using vb6 (looks almost like php...), try the following - SELECT * FROM table1 WHERE p_date ='" & date$ & "'" ''All depends on what/where your date$ is coming from!!!  |
 | You remember to .... damn, what was it I was to remember again!.:)  |
| | Have a look at [THIS](http://www.connectionstrings.com/access-2007) link, it contains all the connection strings you might need to connect to an Acess database. |
| | Dim Picture_Path As String On Error GoTo Extention_Error With dlogPicture .DialogTitle = "Select a Picture to Upload." .Filter = "(*.bmp;*.jpg;*.gif;*.pcx)| *.bmp;*.jpg;*.gif;*.pcx|" .ShowOpen If .FileName <> "" Then Picture_Path = .FileName ‘Nothing to do with this by now imgPassport.Picture = LoadPicture(.FileTitle) lblPicture_Name.Caption = .FileTitle Picture_Name = .FileTitle ‘This is the Variable … |
| | Re: Simplex Method Yosia, As a helping community, we can not write an entire application for you, sorry. :) What we can do is to help you with errors, help add code etc. You need to show some effort from your side by posting code that you already have, if there's error, where … |
| | Have a look at this [Link](http://www.excely.com/excel-vba/ie-automation.shtml), it has plenty of sample code.... If that does not work for you, please give us more information on what you want to do with form 3.... post values to what.... etc. |
 | Use 'SelectedNode.Parent.Text'. If you are storing a value in the node's 'Tag' property, use 'SelectedNode.Parent.Tag.ToString()' to convert the value to a string - txtValue.Text = tvMyTreeview.SelectedNode.Parent.Text You will have something like this if you are using checkboxes in your treeview - Protected Sub Button1_Click(ByVal sender As Object, ByVal e As … |
| | Yes it is. Use google as your friend, plenty of code samples available.. [HERE](http://www.aspnet-answers.com/microsoft/VB-NET/35977681/how-to-capture-a-photo-from-my-web-cam-.aspx) is a link to a sample. |
| | Re: VB Excel: It seems that the pivot table field name showing or reporting data has been changed. In lamens terms, if your macro used to get a name from your data field called "name" and displayed it in your pivot table field called "pivotname" and you changed "pivotname" to say "anothername", it … |
| | [QUOTE]bubble sort using the command buttons to swap textboxes from 1- 5.[/QUOTE] What exactly do you need here? Bubble can mean a lot, swap text boxes even more, swap to what. Give us what you need and we might be able to help.:) |
| | I agree, Fallout is nice for roaming. Not my type of game though. |
| | Have a look at [THIS](http://stackoverflow.com/questions/5042379/in-vb6-what-is-the-difference-between-property-set-and-property-let) link which contains a link to some sample code as well. |
| | Open a new module in your project - Click on "Project - Add New Module". In the module code form, add the following... Option Explicit Public xCounterClicks As Integer Save the module.... When your app starts up, in the form load event, add the following... xCounterClicks = 0 Make sure … |
| | Global was used in vb2/3, Public was used from vb4 onwards. It is the same as global, rather use Public throughout. Public replaced Global as Private replaced Dim... |
| | > sql = "insert into Customer(Username, Password, Name, NumIC, Gender, Email, Address, PhoneNum)" & "values ('" & TxtUname.Text & "', '" & TxtPwd.Text & "','" & TxtName.Text & "','" & TxtICNum.Text & "','" & cmboxGndr.Text & "', '" & TxtMail.Text & "','" & Rtxtadd.Text & "','" & TxtPhone.Text & "' …  |
| | It seems that you want to register it on a windows 7 64 bit pc, correct? |
 | Re: VB6 DataReport Nicely done on solving your own problem. Also well done to Bolt, what an athlete!! Also, please mark as solved, thanx |
| | As you would count positive numbers... Dim xCount as Integer, xList as Integer xList = 0 For xCount = 0 To lstNumbers.Listcount - 1 lstNumbers.ListIndex = xCount xList = Val(xList) + Val(lstNumbers.Text) ''Assuming that you have checked that it is only numbers... Next xCount  |
| | Nothing seems to be techy about it!! It's all about wall street and you just broke the rules with this kind of spam! Not interested... Please do not post your personal ads here. |
| | Google it, there is tons of sample code available - link listview with datareport in vb6 |
| | And then you will offer how much in payment? We do not do projects here, this is a community help based site. show us what you have developed so far and we will gladly help correcting errors etc. |
| | You can use something like - ActiveWindow.SelectedSheets.PrintOut Copies:=1 ''Or as many pages as you need... |
 | Re: Need help And then you will offer how much in payment? We do not do projects here, this is a community help based site. show us what you have developed so far and we will gladly help correcting errors etc. |
| | Option Explicit Const sMatrix As String = "I~V~X~L~C~D~M" ''Holder of numerical converted value... Private Function toroman(ByVal sDecNum As String) As String Text1.Text = sDecNum ''Value to be converted from numerical to roman... If sDecNum <> "0" And sDecNum <> vbNullString Then ''Check to see if numerical value is valid... If … |
| | 1) This post belongs to johncornelius, please open you own thread. 2) You need to give us much more info, where does the error occur etc. 3) This is a vb6 forum, not for .net |
The End.