﻿<?xml version='1.0' encoding='UTF-8'?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/"><channel><title>A1VBCode Forums / Classic Visual Basic (VB 6 or earlier) / Database Programming </title><generator>InstantForum.NET v4.1.1</generator><description>A1VBCode Forums</description><link>http://www.a1vbcode.com/vbforums/</link><webMaster>forums@a1vbcode.com</webMaster><lastBuildDate>Sat, 13 Mar 2010 13:36:54 GMT</lastBuildDate><ttl>20</ttl><item><title>SAVING AND RETRIEVING IMAGES INTO ACCESS USING VB6</title><link>http://www.a1vbcode.com/vbforums/Topic28933-4-1.aspx</link><description>HELP GUYS. I JUST WANT TO KNOW HOW TO SAVE IMAGES INTO ACCESS USING VB6. I'M 3RD YEAR COLLEGE NOW. AND WERE WORKING NOW WITH DSS.. THANK YOU. AND GODBLESS...</description><pubDate>Sat, 27 Feb 2010 00:14:21 GMT</pubDate><dc:creator>jessiekidfernando</dc:creator></item><item><title>how to create digital signature in forms</title><link>http://www.a1vbcode.com/vbforums/Topic28896-4-1.aspx</link><description>hey...i just want to ask  if&lt;/P&gt;&lt;P&gt;how to create digital signatures for form in&lt;/P&gt;&lt;P&gt;visual basic....&lt;/P&gt;&lt;P&gt;thanks</description><pubDate>Tue, 16 Feb 2010 07:57:22 GMT</pubDate><dc:creator>belat</dc:creator></item><item><title>Lan base system</title><link>http://www.a1vbcode.com/vbforums/Topic28903-4-1.aspx</link><description>i just want to ask if how to create lan based &lt;/P&gt;&lt;P&gt;system with mysql database and vb 6???&lt;/P&gt;&lt;P&gt;thanks..</description><pubDate>Wed, 17 Feb 2010 00:17:46 GMT</pubDate><dc:creator>belat</dc:creator></item><item><title>Database back up and restore</title><link>http://www.a1vbcode.com/vbforums/Topic28886-4-1.aspx</link><description>good day! i just want to ask &lt;/P&gt;&lt;P&gt;if how to back up and restore mysql database using visual basic 6&lt;/P&gt;&lt;P&gt;thanks..</description><pubDate>Mon, 15 Feb 2010 00:22:28 GMT</pubDate><dc:creator>belat</dc:creator></item><item><title>Problem with Insert Statement</title><link>http://www.a1vbcode.com/vbforums/Topic28646-4-1.aspx</link><description>I am a beginning programmer and am having a problem with adding a record to a customer table in a Microsoft Access database. I have worked for hours reading my textbook and troubleshooting to no avail.  When I execute this code below the record is not added and I do not get an error of any type. When I go into debug mode, all of the parameters are correct and everything looks good. If I open up Access I can manually add the record but using my program nothing happens. All datatypes are string in VS and text in Access.&lt;P&gt;First an instance of the Customer Class is created and this seems to be successful. But when I take that customer object and run the AddCustomer method of the customer class it is not successful in that the database does not reflect that the record was ever added.&lt;/P&gt;&lt;P&gt;&lt;BR&gt;Here is the code for the AddCustomer method:&lt;/P&gt;&lt;P&gt;&amp;lt;code&amp;gt;&lt;BR&gt;Public Shared Function AddCustomer(ByVal customer As Customer) As Boolean&lt;/P&gt;&lt;P&gt;&lt;BR&gt;        Dim connection As OleDbConnection = PaulMeadeInsuranceDB.GetConnection&lt;BR&gt;        Try&lt;BR&gt;            Dim insertStatement As String _&lt;BR&gt;            = "INSERT INTO Customers (CustNumber, Lastname, Firstname, MidName, Address1, Address2," _&lt;BR&gt;            &amp;amp; " City, State, ZIP, Phone1, Phone2, PolicyNumber) VALUES" _&lt;BR&gt;            &amp;amp; " (@CustNumber, @Lastname, @Firstname, @MidName, @Address1, @Address2, @City, @State," _&lt;BR&gt;            &amp;amp; " @ZIP, @Phone1, @Phone2, @PolicyNumber)"&lt;/P&gt;&lt;P&gt;            Dim insertcommand As New OleDbCommand(insertStatement, connection)&lt;BR&gt;            insertcommand.Parameters.AddWithValue("@CustNumber", customer.Custnumber)&lt;BR&gt;            insertcommand.Parameters.AddWithValue("@Lastname", customer.Lastname)&lt;BR&gt;            insertcommand.Parameters.AddWithValue("@Firstname", customer.FirstName)&lt;BR&gt;            insertcommand.Parameters.AddWithValue("@Midname", customer.MiddleName)&lt;BR&gt;            insertcommand.Parameters.AddWithValue("@Address1", customer.Address1)&lt;BR&gt;            insertcommand.Parameters.AddWithValue("@Address2", customer.Address2)&lt;BR&gt;            insertcommand.Parameters.AddWithValue("@City", customer.City)&lt;BR&gt;            insertcommand.Parameters.AddWithValue("@State", customer.State)&lt;BR&gt;            insertcommand.Parameters.AddWithValue("@ZIP", customer.Zip)&lt;BR&gt;            insertcommand.Parameters.AddWithValue("@Phone1", customer.Phone1)&lt;BR&gt;            insertcommand.Parameters.AddWithValue("@Phone2", customer.Phone2)&lt;BR&gt;            insertcommand.Parameters.AddWithValue("@PolicyNumber", customer.Policynumber)&lt;BR&gt;            Return AddCustomer&lt;BR&gt;        Catch ex As OleDbException&lt;BR&gt;            MessageBox.Show(ex.Message, ex.GetType.ToString)&lt;BR&gt;        Finally&lt;BR&gt;            connection.Close()&lt;BR&gt;        End Try&lt;BR&gt;Here is the code from the actual program:&lt;/P&gt;&lt;P&gt;Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click&lt;BR&gt;Try&lt;BR&gt;Dim record1C As New Customer(txtCustNumber.Text, txtLastname.Text, txtFirstName.Text, _&lt;BR&gt;txtMiddleName.Text, txtAddress1.Text, txtAddress2.Text, txtCity.Text, _&lt;BR&gt;txtState.Text, txtZIP.Text, txtPhone1.Text, txtPhone2.Text, txtPolicyNumber.Text)&lt;/P&gt;&lt;P&gt;&lt;BR&gt;CustomerDB.AddCustomer(record1C)&lt;/P&gt;&lt;P&gt;&lt;BR&gt;Catch ex As Exception&lt;BR&gt;Throw ex&lt;BR&gt;End Try&lt;BR&gt;End Sub &lt;BR&gt;&amp;lt;code&amp;gt;</description><pubDate>Tue, 05 Jan 2010 17:34:23 GMT</pubDate><dc:creator>nick447923</dc:creator></item><item><title>suggestion to copy data from Sql Server into Access database</title><link>http://www.a1vbcode.com/vbforums/Topic28540-4-1.aspx</link><description>&lt;DIV id=KonaBody&gt;&lt;DIV id=post_message_6439479&gt;Situation:&lt;BR&gt;I have a Sql Server in Rome and a shared server dir (with the access database) on a Server in New York.&lt;BR&gt;&lt;BR&gt;I have permission on sever dir and databse.&lt;BR&gt;&lt;BR&gt;The database on sql Server have exactlly the same structure of Access database. (the table on Sql Server have 200.000 records and 48 columns).&lt;BR&gt;&lt;BR&gt;Now i want to recopy all records from Rome to NewYork.&lt;BR&gt;&lt;BR&gt;Wath is the best way in terms of time to recopy records from Sql Server to acces Table?&lt;BR&gt;&lt;BR&gt;note:&lt;BR&gt;I want to use in my app the ADO jET drive.&lt;/DIV&gt;&lt;/DIV&gt;</description><pubDate>Fri, 11 Dec 2009 06:56:23 GMT</pubDate><dc:creator>sal21</dc:creator></item><item><title>visual basic.net</title><link>http://www.a1vbcode.com/vbforums/Topic28825-4-1.aspx</link><description>hi dear&lt;br&gt;&lt;br&gt;i am new to vb.net , and i want to add   date and time (DateTimePicker1) to my  form &lt;br&gt;then when i  save the record a wrong  date is saved to the table , my database is sql 2005 &lt;br&gt;&lt;br&gt;&lt;br&gt;  Code:     " &amp; Format(DateTimePicker1.Value, "dd/mm/yy") &amp; ") "&lt;br&gt; &lt;br&gt; Result:     1/1/1900 12:00:00 AM&lt;br&gt;&lt;br&gt;i much liked to help.............&lt;br&gt;</description><pubDate>Thu, 04 Feb 2010 02:31:40 GMT</pubDate><dc:creator>tawfiiq</dc:creator></item><item><title>The student record database</title><link>http://www.a1vbcode.com/vbforums/Topic28227-4-1.aspx</link><description>I have a problem with creating this database.&lt;br&gt;I want to create the student record system. I have a table containing Individual information and using of ID as primary key.&lt;br&gt;For registering grades I use another table for grades. But here is the problem. Here we have 6 or more class with different courses.&lt;br&gt;Firstly, I should to permit the user for adding more classes and then more courses to these basic assumptions. (But how the user can add another table that the relationship between new table and the Individual information table makes sense).&lt;br&gt;How can I save the grades in table?&lt;br&gt;It is better to use different table for different class with using different courses as filed in this table.&lt;br&gt;&lt;br&gt;Or add all the courses in my filed and for each ID I just fill out the course for that class.&lt;br&gt;&lt;br&gt;Or something else I don't know?&lt;br&gt;&lt;br&gt;Another problem is when some person has grades with lower than 15, I have to add another grades for this person. This person failed then must have another grade for taking effect in GPA.&lt;br&gt;&lt;br&gt;Please help me to find the way through these problems.&lt;br&gt;&lt;br&gt;</description><pubDate>Wed, 23 Sep 2009 08:14:45 GMT</pubDate><dc:creator>Afi83</dc:creator></item><item><title>mySQL DB inserting issue</title><link>http://www.a1vbcode.com/vbforums/Topic28637-4-1.aspx</link><description>I am having a major issue with inserting french characters in my mySQL DB. The french charaters display perfectly fine on the client-side page. If I edit a field directly in the phpMySQL control panel, the french characters also displays correctly.&lt;br&gt;But if I insert or update fields from a form on a webpage (using PHP), it converst the special french characters into something not readable. For example, à becomes Ã Â.&lt;br&gt;&lt;br&gt;I feel as if I've tried it all... any ideas?? here are the variables set on my server for phpMySQL:&lt;br&gt;*********************************************&lt;br&gt;character set client utf8&lt;br&gt;(Global value) latin1&lt;br&gt;character set connection utf8&lt;br&gt;(Global value) latin1&lt;br&gt;character set database latin1&lt;br&gt;character set filesystem binary&lt;br&gt;character set results utf8&lt;br&gt;(Global value) latin1&lt;br&gt;character set server latin1&lt;br&gt;character set system utf8&lt;br&gt;character sets dir /usr/share/mysql/charsets/&lt;br&gt;collation connection utf8_general_ci&lt;br&gt;(Global value) latin1_swedish_ci&lt;br&gt;collation database latin1_swedish_ci&lt;br&gt;collation server latin1_swedish_ci&lt;br&gt;********************************************&lt;br&gt;&lt;br&gt;Any ideas or suggestions would be much appreciated!&lt;br&gt;</description><pubDate>Tue, 05 Jan 2010 05:23:53 GMT</pubDate><dc:creator>honomas</dc:creator></item><item><title>Connection</title><link>http://www.a1vbcode.com/vbforums/Topic28577-4-1.aspx</link><description>Hi everyone,&lt;P&gt;I want to know how can I connect to an external database via vb.net.&lt;/P&gt;&lt;P&gt;Thank you</description><pubDate>Fri, 25 Dec 2009 12:19:43 GMT</pubDate><dc:creator>mohamedsamir3000</dc:creator></item><item><title>calling of all primary key of ADODB using combo box in other form</title><link>http://www.a1vbcode.com/vbforums/Topic28553-4-1.aspx</link><description>how can i call all primary key of database (ADODB) using combobox in other form because i want to update  a data in other form</description><pubDate>Mon, 14 Dec 2009 02:21:12 GMT</pubDate><dc:creator>roskie21</dc:creator></item><item><title>Drop Down Menus</title><link>http://www.a1vbcode.com/vbforums/Topic28344-4-1.aspx</link><description>I am very new to Databases and are busy with my first database. However, in order for it to be practical for my use I would need to pre define inputs for certain fields. (January, Februay, March ...) &lt;/P&gt;&lt;P&gt;In exsample the database I would like to create I need to input the Month in which a person's birth is when entering data from a drop-down list in the "BIRTHDAY" field. &lt;/P&gt;&lt;P&gt;I am using IB Expert and after reading for many hours I cannot see how to do this.</description><pubDate>Sun, 08 Nov 2009 12:39:24 GMT</pubDate><dc:creator>WikusHeyns</dc:creator></item><item><title>Help with Database Query in VB2008</title><link>http://www.a1vbcode.com/vbforums/Topic28351-4-1.aspx</link><description>Hi everyone!&lt;br&gt;&lt;br&gt;I've worked with Visual Studio for a couple of years, but it's been a while. I'm trying to build a database driven application, but I can't figure out the new system with the tableadapters and such.&lt;br&gt;&lt;br&gt;What I'm simply trying to do (to get started) is to compare a username and a password provided in a textbox, with those in the database.&lt;br&gt;&lt;br&gt;I do understand SQL queries very well so that's not the problem. My question is, what on earth do I put down when I:&lt;br&gt;&lt;br&gt;Have a table 'users'&lt;br&gt;that holds a column Username and a column Password&lt;br&gt;String userinput is what the user entered as username and string passwordinput is what the user entered as password.&lt;br&gt;&lt;br&gt;I tried to make a query in the tableadapter, that worked fine, but I can't seem to get the output anywhere. If I know how this works I can continue building. So if you guys could give me a head's up that would be most appreciated!&lt;br&gt;&lt;br&gt;Thank you so much in advance.&lt;br&gt;&lt;br&gt;René</description><pubDate>Tue, 10 Nov 2009 08:35:07 GMT</pubDate><dc:creator>Booster1977</dc:creator></item><item><title>Help With Database Programming</title><link>http://www.a1vbcode.com/vbforums/Topic28265-4-1.aspx</link><description>Hello to all. My name is ryan and to get to the point, I'm a graduating student at a certain computer school here in the Philippines. For our final project, my instructor has instructed us to make a system. Now, i've already took this subject twice, having failed last time due to database error and now that it's my 2nd time taking up this subject. I would very much appreciate it if any of you could kindly help me out on how to make the database work.&lt;br&gt;&lt;br&gt;Here are my specs : &lt;br&gt;Visual Basic Enterprise Edition&lt;br&gt;MS Office 2007 - I use the MS Access as database&lt;br&gt;Windows XP SP2&lt;br&gt;&lt;br&gt;Anyway, the system is all about Dental System. I've already tried and tried and yet failed again to make the database work. I have no problem with designing and coding a few of the command buttons in the dental system. I'm still a beginner with programming so please bear with me.&lt;br&gt;&lt;br&gt;Here's the problem, the system is all set in terms of design, now whenever i would try to make a database i do it this way;&lt;br&gt;1. Add - ins --&gt; Visual Data Manager&lt;br&gt;2. VisData --&gt; New --&gt; Microsoft Access 7.0 MDB&lt;br&gt;&lt;br&gt;When i get to this part and start designing the table;&lt;br&gt;1. Should I include all of the fields that i want to be recorded in the database?&lt;br&gt;2. Should I also include those that are combo boxes?&lt;br&gt;3. This system that I am making has a search function, can anyone please tell me how to make that work?&lt;br&gt;4. Where do I go from now?&lt;br&gt;&lt;br&gt;Basically, I'm asking help for a step by step procedure on how to make the Database work.&lt;br&gt;&lt;br&gt;My other problem, whenever I'm finished with the table structure and would start to connect it to the system and begin to add the coding for the SAVE Button&lt;br&gt;I would use&lt;br&gt;&lt;br&gt;Data1.Recordset.MoveLast&lt;br&gt;Data1.Recordset.AddNew&lt;br&gt;txt1.SetFocus&lt;br&gt;&lt;br&gt;that's my coding for the SAVE button but it doesn't seem to work cause whenever I would&lt;br&gt;try save a current record through the system an Error Message would pop up that says&lt;br&gt;Run Time Error ' 3021 '&lt;br&gt;" No Current Record "  Then you have the option to Continue(grayed out) End Debug Help&lt;br&gt;&lt;br&gt;Please.. Help me out here. I don't want to fail again on this subject. Please do help me.&lt;br&gt;&lt;br&gt;Please kindly send me a step by step procedure on how to make the database work.&lt;br&gt;I don't care if I would have to start from the beginning and ruin the whole design of the system as long as the database can work.&lt;br&gt;I'm desperate right now. I hope that there's someone out there that can help me out T__T&lt;br&gt;&lt;br&gt;here's my email address&lt;br&gt;lil_droj_666@yahoo.com&lt;br&gt;please please please. help me&lt;br&gt;</description><pubDate>Fri, 09 Oct 2009 07:24:10 GMT</pubDate><dc:creator>dryan</dc:creator></item><item><title>store image into ms access</title><link>http://www.a1vbcode.com/vbforums/Topic28288-4-1.aspx</link><description>hi,&lt;br&gt;&lt;br&gt;i want top store image(.jpg) into ms access using image box or picture control&lt;br&gt;&lt;br&gt;with vb6 at run time.&lt;br&gt;&lt;br&gt;&lt;br&gt;how can i store image????&lt;br&gt;&lt;br&gt; &lt;br&gt;&lt;b&gt;[highlight=#ffff11]note : not path actual picture[/highlight] [/size]&lt;/b&gt;</description><pubDate>Wed, 14 Oct 2009 13:30:31 GMT</pubDate><dc:creator>trivedi</dc:creator></item><item><title>Coding for find or search using DATA Bar</title><link>http://www.a1vbcode.com/vbforums/Topic28304-4-1.aspx</link><description>Hi to everyone. it's me again. &lt;img align="absmiddle" src="http://www.a1vbcode.com/vbforums/Skins/Classic/Images/EmotIcons/Smile.gif" border="0" title="Smile"&gt; sorry for always troubling you guys but the thing is i'm on my last chance to graduate and i have my dental system working and everything is all set but the trouble is i'm having problems with the Find/Search button in which wherein when the user click on the Search/Find(command button) it would open up a new form with One label(label1) named as Enter Patient Number and a text box(text1) and 3 command buttons&lt;br&gt;SEARCH Patient History&lt;br&gt;SEARCH Patient Form&lt;br&gt;EXIT&lt;br&gt;and since it's a search form i put in two Data Bar, the one wherein you the codings would start as Data1.recordset.addnew etc....&lt;br&gt;and the reason why it's two Data Bar is because the search form would search a two kinds of patient record, the patient history, which would include the medical records of that certain patient and the patient form which would include the necessary Patient's Information such as Address, Date of birth etc.&lt;br&gt;&lt;br&gt;the thing is i don't quite get it how to make that search button work. T__T forgive me, i'm pathetic.&lt;br&gt;&lt;br&gt;i tried to copy down notes from the book VB6 databases by charles williams and all it shows there are how to use the search button using Adodc.&lt;br&gt;what i did now is tried to replace the necessary Adodc terms with Data1 and i still can't get it right.&lt;br&gt;&lt;br&gt;in the book it stated about using strings and adding indexes to the labels and text boxes of the form wherein the criteria for searching would work. in my part the criteria for searching would just be patient number so what i did is i put and index number to the Patient number label and the Patient Number text box. i put 0(zero) on both of it.&lt;br&gt;&lt;br&gt;here's a copy of the coding that i used.&lt;br&gt;&lt;br&gt;Public Sub FindString()&lt;br&gt;Dim strFind As String&lt;br&gt;Dim intFields As Integer&lt;br&gt;&lt;br&gt;&lt;br&gt;If Trim(txtsearch) &lt;&gt; "" Then&lt;br&gt;strFind = Trim(Command1)&lt;br&gt;&lt;br&gt;With Form4.Data1.Recordset&lt;br&gt;Do Until .EOF&lt;br&gt;&lt;br&gt;    For intFields = 0 To 1&lt;br&gt;    &lt;br&gt;        If InStr(1, Form4.txtnumber(intFields), strFind, _&lt;br&gt;        vbTextCompare) &gt; 0 Then&lt;br&gt;        Form4.txtnumber(intFields).SelStart = InStr(1, Form4.txtnumber(intFields), _&lt;br&gt;        strFind, vbTextCompare) - 1&lt;br&gt;        Form4.txtnumber(intFields).SelLength = Len(strFind)&lt;br&gt;        Form4.txtnumber(intfield).SetFocus&lt;br&gt;        &lt;br&gt;        Exit Sub&lt;br&gt;        End If&lt;br&gt;        &lt;br&gt;    Next&lt;br&gt;    .MoveNext&lt;br&gt;    DoEvents&lt;br&gt;    Loop&lt;br&gt;    MsgBox "Record Not Found"&lt;br&gt;    .MoveFirst&lt;br&gt;    End With&lt;br&gt;    End If&lt;br&gt;    Exit Sub&lt;br&gt;&lt;br&gt;End Sub&lt;br&gt;Private Sub Command1_Click()&lt;br&gt;If Form4.Data1.Recordset.RecordCount &gt; 0 Then&lt;br&gt;    Form4.Data1.Recordset.MoveFirst&lt;br&gt;    Call FindString&lt;br&gt;    Else&lt;br&gt;    MsgBox "Recordset is Empty"&lt;br&gt;    End If&lt;br&gt;    &lt;br&gt;&lt;br&gt;End Sub&lt;br&gt;&lt;br&gt;&lt;br&gt;Please kindly help me T_____T</description><pubDate>Tue, 20 Oct 2009 11:39:53 GMT</pubDate><dc:creator>dryan</dc:creator></item><item><title>Results not showing in Decimal Form Help Pls</title><link>http://www.a1vbcode.com/vbforums/Topic28308-4-1.aspx</link><description>&lt;DIV&gt;&lt;FONT color=#0000ff size=2&gt;&lt;FONT color=#0000ff size=2&gt;&lt;P&gt;&lt;font style="background-color: #ffff11"&gt;Public Class Form1&lt;BR&gt;Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load&lt;BR&gt;'TODO: This line of code loads data into the 'Total_CMADataSet.Table1' table. You can move, or remove it, as needed.&lt;BR&gt;Me.Table1TableAdapter.Fill(Me.Total_CMADataSet.Table1)&lt;BR&gt;End Sub&lt;BR&gt;Private Sub Strands_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Strands.TextChanged&lt;BR&gt;Dim area As Decimal = CDec(ListBox1.SelectedValue)&lt;BR&gt;Dim strand As Decimal&lt;BR&gt;Label3.BackColor = Color.Blue&lt;BR&gt;Label3.ForeColor = Color.AntiqueWhite&lt;BR&gt;Label3.BorderStyle = BorderStyle.Fixed3D&lt;BR&gt;If Decimal.TryParse(Strands.Text, strand) Then&lt;BR&gt;strand *= CDec(area)&lt;BR&gt;Label3.Text = strand.ToString&lt;BR&gt;End If&lt;BR&gt;End Sub&lt;BR&gt;End Class&lt;/font&gt;&lt;/FONT&gt;&lt;/FONT&gt;&lt;/P&gt;&lt;P&gt;&lt;FONT color=#0000ff size=2&gt;&lt;FONT color=#0000ff size=2&gt;&lt;/P&gt;&lt;/FONT&gt;&lt;/FONT&gt;&lt;/DIV&gt;&lt;DIV&gt; &lt;/DIV&gt;&lt;DIV&gt;The end result is baffling me here are 2 examples when I debug&lt;BR&gt;&lt;BR&gt;Mine: 640.1 * 49 = 31364.9 &lt;BR&gt;Debugger: 640.1 * 49 = 31360 ( not right needs to show the correct decimal )&lt;BR&gt;&lt;BR&gt;Mine: .775 * 3 = 2.325&lt;BR&gt;Debugger: .775 * 3 = 2.325 ( shows it perfectly???) &lt;/DIV&gt;</description><pubDate>Wed, 21 Oct 2009 13:56:53 GMT</pubDate><dc:creator>deafgal</dc:creator></item><item><title>help with codings for save</title><link>http://www.a1vbcode.com/vbforums/Topic28298-4-1.aspx</link><description>hello to everyone. lately i was able to create the database for the dental system&lt;br&gt;that i was making and was able to make it work but recently i made a few changes with the form&lt;br&gt;of the system and these changes are;&lt;br&gt;instead of text box I used combo boxes with the selection of yes and no.&lt;br&gt;my question is;&lt;br&gt;what kind of field type should i use in the table?&lt;br&gt;should i use text, boolean, integer?&lt;br&gt;and my other problem is that everytime i tried to save a sample record on the system i would&lt;br&gt;receive an error message that says&lt;br&gt;"run time error 3426"&lt;br&gt;" this action was cancelled by an associated object"&lt;br&gt;and i get the option&lt;br&gt;continue&lt;br&gt;end&lt;br&gt;debug&lt;br&gt;help&lt;br&gt;what i do is i select on debug and then it would of course stop the system and would&lt;br&gt;highlight the coding with the error.&lt;br&gt;the error is on the coding for my save button. can somebody please tell me the correct&lt;br&gt;coding for the save button.&lt;br&gt;my system has 3 major command buttons and these are:&lt;br&gt;SAVE&lt;br&gt;Data1.recordset.movelast&lt;br&gt;Data1.recordset.addnew&lt;br&gt;Data1.recordset.update&lt;br&gt;&lt;br&gt;UPDATE&lt;br&gt;Data1.recordset.edit&lt;br&gt;Data1.recordset.update&lt;br&gt;&lt;br&gt;NEW PATIENT&lt;br&gt;Data1.recordset.movelast&lt;br&gt;Data1.recordset.addnew&lt;br&gt;txtname.setfocus&lt;br&gt;&lt;br&gt;can somebody tell me why am I receiving that error message?&lt;br&gt;please do help me T__T</description><pubDate>Mon, 19 Oct 2009 03:17:43 GMT</pubDate><dc:creator>dryan</dc:creator></item><item><title>Hooking Keyboard ViA Windows API in Delphi</title><link>http://www.a1vbcode.com/vbforums/Topic28291-4-1.aspx</link><description>Hi guys&lt;br&gt;&lt;br&gt;Could anyone point me to the direction of some Tutorials on how to Hook the keyboard usings the windows PAI to capture keystrokes,&lt;br&gt;I want to enable my App to Bring itself too top if certain key combo is pressed, mainly because i want to give the option for my application to hide &lt;its a to do list app&gt; when user click Hide button. But i have no real way of havign it charm Form1.hide;&lt;br&gt;to&lt;br&gt;Form1.show; unless i can moniter all Keyboard strokes.&lt;br&gt;I know its posible and have been told not too hard. and i know that it wil lrequire building a DLL, buti just dont know how to code it Thanks &lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;-----------------&lt;br&gt;&lt;a href="http://www.espaceecologie.com/" target="_blank" class="SmlLinks"&gt;définition de développement durable&lt;/a&gt;</description><pubDate>Thu, 15 Oct 2009 06:30:18 GMT</pubDate><dc:creator>hossain</dc:creator></item><item><title>Do MS SQL server have break point like in vb?</title><link>http://www.a1vbcode.com/vbforums/Topic28076-4-1.aspx</link><description>Is there a way in MS SQL server where we can put break point in stored procedure like in vb.</description><pubDate>Mon, 24 Aug 2009 05:54:40 GMT</pubDate><dc:creator>Makura</dc:creator></item><item><title>how to select distinct month from the database</title><link>http://www.a1vbcode.com/vbforums/Topic28057-4-1.aspx</link><description>Hi!&lt;br&gt;&lt;br&gt; I want to select distinct month from the database table. How can i do that anyone can help me.&lt;br&gt;my database table records are as&lt;br&gt;&lt;br&gt;Transaction_Date(mm/dd/yyyy)&lt;br&gt;01/01/2009&lt;br&gt;01/15/2009&lt;br&gt;01/25/2009&lt;br&gt;02/05/2009&lt;br&gt;02/20/2009&lt;br&gt;02/29/2009&lt;br&gt;03/10/2009&lt;br&gt;03/15/2009&lt;br&gt;03/28/2009&lt;br&gt;04/15/2009&lt;br&gt;04/22/2009&lt;br&gt;04/27/2009&lt;br&gt;&lt;br&gt;using where statement less than today(05/01/2009) date&lt;br&gt;&lt;br&gt;example&lt;br&gt;month&lt;br&gt;01&lt;br&gt;02&lt;br&gt;03&lt;br&gt;04&lt;br&gt;&lt;br&gt;&lt;br&gt;</description><pubDate>Wed, 19 Aug 2009 03:51:37 GMT</pubDate><dc:creator>Makura</dc:creator></item><item><title>how to connect vb to SQL</title><link>http://www.a1vbcode.com/vbforums/Topic28222-4-1.aspx</link><description>helo.. everyone...! I am Marpaul and i want to know how to connect SQL database to Visual basic.&lt;br&gt;i am bigginer for programming..Please help me..&lt;br&gt;my email add Mr.Emopaul@yahoo.com&lt;br&gt;thanks..</description><pubDate>Tue, 22 Sep 2009 01:52:51 GMT</pubDate><dc:creator>Mr.Emopaul</dc:creator></item><item><title>Reports with MSFlexGrid Data</title><link>http://www.a1vbcode.com/vbforums/Topic24079-4-1.aspx</link><description>&lt;P class=MsoNormal style="MARGIN: 0in 0in 0pt"&gt;&lt;FONT face="Times New Roman" color=#000000 size=3&gt;In VB6 in a form there are 10 labels and associated 10 textboxes and 2 MSFlexGrids. There are 5 columns in the first MSFGrid &lt;SPAN style="mso-spacerun: yes"&gt; &lt;/SPAN&gt;and 7 in the second MSFGrid. There are 3 rows in the first grid and 4 in the second. I want to generate a report (may be using DataEnvironment and DataReport, as I don’t have Crystal Report) in such a way the its output should be as follows:&lt;/FONT&gt;&lt;/P&gt;&lt;P class=MsoNormal style="MARGIN: 0in 0in 0pt"&gt;&lt;FONT face="Times New Roman" color=#000000 size=3&gt;7 Labels and associated 7 textboxes&lt;/FONT&gt;&lt;/P&gt;&lt;P class=MsoNormal style="MARGIN: 0in 0in 0pt"&gt;&lt;FONT face="Times New Roman" color=#000000 size=3&gt;Data in First MSFlexGrid (first row showing headings of columns and next 3 rows data)&lt;/FONT&gt;&lt;/P&gt;&lt;P class=MsoNormal style="MARGIN: 0in 0in 0pt"&gt;&lt;FONT face="Times New Roman" color=#000000 size=3&gt;Data in second MSFlexGrid (in similar fashion as for first grid)&lt;/FONT&gt;&lt;/P&gt;&lt;P class=MsoNormal style="MARGIN: 0in 0in 0pt"&gt;&lt;FONT face="Times New Roman" color=#000000 size=3&gt;Remaining 3 labels and 3 textboxes in the form&lt;/FONT&gt;&lt;/P&gt;&lt;P class=MsoNormal style="MARGIN: 0in 0in 0pt"&gt;&lt;?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /&gt;&lt;o:p&gt;&lt;FONT face="Times New Roman" color=#000000 size=3&gt; &lt;/FONT&gt;&lt;/o:p&gt;&lt;/P&gt;&lt;P class=MsoNormal style="MARGIN: 0in 0in 0pt"&gt;&lt;FONT face="Times New Roman" color=#000000 size=3&gt;Please help me, if possible by attaching an example program.&lt;/FONT&gt;&lt;/P&gt;&lt;P class=MsoNormal style="MARGIN: 0in 0in 0pt"&gt;&lt;FONT face="Times New Roman" color=#000000 size=3&gt;Thanks in advance.&lt;/FONT&gt;&lt;/P&gt;&lt;P class=MsoNormal style="MARGIN: 0in 0in 0pt"&gt;&lt;o:p&gt;&lt;FONT face="Times New Roman" color=#000000 size=3&gt; &lt;/FONT&gt;&lt;/o:p&gt;</description><pubDate>Sat, 02 Feb 2008 11:26:46 GMT</pubDate><dc:creator>Smartchap</dc:creator></item><item><title>Run a query based on form combo box entry</title><link>http://www.a1vbcode.com/vbforums/Topic28168-4-1.aspx</link><description>I currently have a form that contains a command button, which runs a query (below).  &lt;pre&gt;Private Sub Command60_Click()&lt;BR&gt;Dim qryLithLogLinks As Hyperlink&lt;P&gt;DoCmd.OpenQuery ("qryTrendChartLinks")&lt;BR&gt;DoCmd.RunCommand acCmdOpenHyperlink&lt;BR&gt;DoCmd.Close acQuery, "qryTrendChartLinks", acSaveNo&lt;BR&gt;End Sub&lt;/pre&gt;&lt;/P&gt;&lt;P&gt;  The query selects the record, from a table, based on the selected item in a combo box on the same form that contains the command button (below).  &lt;pre&gt;SELECT tblTrendChartLinks.Trend_charts AS Expr1&lt;BR&gt;FROM tblWell_ID INNER JOIN tblTrendChartLinks ON tblWell_ID.WELL_ID = tblTrendChartLinks.WELL_ID&lt;BR&gt;WHERE (((tblWell_ID.WELL_ID)=[Forms]![frmWellMaintenance]![Combo34]))&lt;/pre&gt;&lt;/P&gt;&lt;P&gt;  But, I would prefer to have the command button open another form window, which contains a combo box, OK, and Cancel buttons.  Then I would like the query to select the same record as the selected item from the combo box on the separate form &amp;#119;indow.  This has worked well with the "On Click" event for reports, which then ran a macro, which in turn opens the form containing a combo box, but cannot do the same with the query only.&lt;P&gt; &lt;P&gt;OK, I got it now.  I first had to set a command button to open the form dialog, and set the "OK" click button to open the query, with the query selecting the record equal to that selected in the dialog's combo box.</description><pubDate>Tue, 08 Sep 2009 15:42:41 GMT</pubDate><dc:creator>Barry</dc:creator></item><item><title>DataReport with two tables</title><link>http://www.a1vbcode.com/vbforums/Topic28082-4-1.aspx</link><description>I have two tables in one MSAccess database file and want to get output of them one after other. How to place controls in DataReport &amp; how to relate tables in DataEnvironment (or through programming dynamically) is not known to me? Please help. For clarity of question I have attached one file. please lopen the file and understand my problem clearly.&lt;br&gt;&lt;br&gt;Thanks.&lt;br&gt;</description><pubDate>Tue, 25 Aug 2009 05:28:02 GMT</pubDate><dc:creator>Smartchap</dc:creator></item><item><title>to get the records field</title><link>http://www.a1vbcode.com/vbforums/Topic28120-4-1.aspx</link><description>how to get the records fields in sql server like in vb.&lt;br&gt;&lt;br&gt;x.open("select name,address from abc"),cn..........................&lt;br&gt;&lt;br&gt;&lt;br&gt;txtname.text=x!name&lt;br&gt;txtaddress.text=x!address&lt;br&gt;&lt;br&gt;&lt;br&gt;</description><pubDate>Tue, 01 Sep 2009 03:53:56 GMT</pubDate><dc:creator>Makura</dc:creator></item><item><title>Move Next</title><link>http://www.a1vbcode.com/vbforums/Topic28119-4-1.aspx</link><description>do while not x.eof&lt;br&gt;x.movenext&lt;br&gt;loop&lt;br&gt;&lt;br&gt;equals to in SQL server.</description><pubDate>Tue, 01 Sep 2009 03:51:35 GMT</pubDate><dc:creator>Makura</dc:creator></item><item><title>How to insert multiple records through stored procedure?</title><link>http://www.a1vbcode.com/vbforums/Topic28075-4-1.aspx</link><description>How to insert all the records of one table to the another table through stored procedure in MS SQL by using loop.&lt;br&gt;&lt;br&gt;If the records reach to end of file then exit.</description><pubDate>Mon, 24 Aug 2009 05:50:58 GMT</pubDate><dc:creator>Makura</dc:creator></item><item><title>Linking VB6 to MSAccess database?</title><link>http://www.a1vbcode.com/vbforums/Topic27118-4-1.aspx</link><description>My question or topic as it may be is what elements are need to a VB6 project to work correctly with MSAccess db&lt;/P&gt;&lt;P&gt;I know I need at least 1 table, and Queries, and possibly Modules but do I need to create a report?&lt;/P&gt;&lt;P&gt;I know I need to add the fields that want to have in the VB6 project to the table or tables as it may be, but the rest I am not sure of I do know it will depend on what I want in my VB6 this can be answered by reading my other topic I have in here there is a zip file uploaded for any to try and solve this question.</description><pubDate>Tue, 24 Feb 2009 23:19:32 GMT</pubDate><dc:creator>BuzzL30</dc:creator></item><item><title>on goto error</title><link>http://www.a1vbcode.com/vbforums/Topic28044-4-1.aspx</link><description>Hi everyone!&lt;br&gt;   I need help me store procedure. Anyone can help me ? On goto error x in store procedure like in vb.</description><pubDate>Fri, 14 Aug 2009 09:06:27 GMT</pubDate><dc:creator>Makura</dc:creator></item><item><title>MS Access security</title><link>http://www.a1vbcode.com/vbforums/Topic27929-4-1.aspx</link><description>Hi, I am an access version 2003 user.  I know MS Access 2007 and 2010 does not employ User level security to its new database format.  &lt;br&gt;&lt;br&gt;It is cumbersome for me to use the user level security.  Not only me but other of different forums.  &lt;br&gt;&lt;br&gt;However I make my own customized way, permissions to forms and report.&lt;br&gt;&lt;br&gt;However, I would like to know how ULS protect the objects, like when you open the object, it pop ups messagebox saying not permitted.  I think ULS employs code to the objects to protect is and the user and permissions are the criteria in that code.&lt;br&gt;&lt;br&gt;Can somebody help me what is that code.  thanks.  my email is lubrigas.genesis@yahoo.com&lt;br&gt;&lt;br&gt;kindly email me please because I am not frequently in the internet. thank you very much.&lt;br&gt;&lt;br&gt;</description><pubDate>Wed, 22 Jul 2009 03:32:17 GMT</pubDate><dc:creator>genlight</dc:creator></item><item><title>Simple Math coding in Acces 2003</title><link>http://www.a1vbcode.com/vbforums/Topic27904-4-1.aspx</link><description>Here what I have&lt;/P&gt;&lt;P&gt;Five numbers inputed into their owner database feilds by the use of a form&lt;BR&gt;&lt;BR&gt;Judge 1, Judge 2, Judge 3, Judge 4, Judge 5&lt;BR&gt;&lt;BR&gt;I need the high and low remove and the remainder 3 numbers added up and it will be put in feild call Total (which is displayed in my form)&lt;BR&gt;&lt;BR&gt;Then i am dividing this by 3 and putting it in a feild call score which is also display .&lt;/P&gt;&lt;P&gt;I have the table,forms created just need the VB code for the feild Total,&lt;/P&gt;&lt;P&gt;I already have VB code for score&lt;/P&gt;&lt;P&gt;I know this is simple but I am new and only doing this as a hobby&lt;/P&gt;&lt;P&gt;Thanks</description><pubDate>Wed, 08 Jul 2009 13:59:00 GMT</pubDate><dc:creator>RCBNewbee</dc:creator></item><item><title>how to calculate complex interest calculation in stored procedure</title><link>http://www.a1vbcode.com/vbforums/Topic27902-4-1.aspx</link><description>Hi! I'm trying to develope co-operative software but having problem  calculating interest in stored procedure. But i can do this from front end using vb.net. Can anyone can help me regarding this problem.&lt;P&gt;My database is in microsoft sql server 2005&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;&lt;U&gt;AccountInformation (table)&lt;/U&gt;&lt;/STRONG&gt;&lt;/P&gt;&lt;P&gt;Acct_Id numeric,&lt;/P&gt;&lt;P&gt;Acct_Holder_Name varchar,&lt;/P&gt;&lt;P&gt;Acct_Type tinyint,&lt;/P&gt;&lt;P&gt;Interest_Type tinyint,&lt;/P&gt;&lt;P&gt;Acct_Open_Date&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;&lt;U&gt;Master_Journal_Voucher(Table)&lt;/U&gt;&lt;/STRONG&gt;&lt;/P&gt;&lt;P&gt;Tran_ID numeric,&lt;/P&gt;&lt;P&gt;Tran_Date datetime,&lt;/P&gt;&lt;P&gt;Jv_No numeric,&lt;/P&gt;&lt;P&gt;Remarks varchar&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;&lt;U&gt;Details_Journal_Voucher(Table)&lt;/U&gt;&lt;/STRONG&gt;&lt;/P&gt;&lt;P&gt;Jv_No numeric,&lt;/P&gt;&lt;P&gt;Particular varchar(Acct_ID),&lt;/P&gt;&lt;P&gt;Dr_Amt numeric,&lt;/P&gt;&lt;P&gt;Cr_Amt numeric,&lt;/P&gt;&lt;P&gt;IsInterestCalculated tinyint&lt;/P&gt;&lt;P&gt;Here, every account has to be compare with the AccountInformation and Detail_Journal_voucher. If there is no transactin in Details_journal_voucher then it has to skip and move to next records for further calculation.&lt;/P&gt;&lt;P&gt;&lt;img align="absmiddle" src="http://www.a1vbcode.com/vbforums/Skins/Classic/Images/EmotIcons/Smile.gif" border="0" title="Smile"&gt;</description><pubDate>Wed, 08 Jul 2009 04:52:54 GMT</pubDate><dc:creator>Makura</dc:creator></item><item><title>Error Class not registered</title><link>http://www.a1vbcode.com/vbforums/Topic27832-4-1.aspx</link><description>I developed application with access 2003 under windows xp service pack 2. It works good, but when i run this application with access 2003 under windows xp service pack 3 it shows error "class not registered - 2147221164". How can i fix this problem? Please help me.</description><pubDate>Wed, 24 Jun 2009 04:43:42 GMT</pubDate><dc:creator>sok</dc:creator></item><item><title>Database Help</title><link>http://www.a1vbcode.com/vbforums/Topic27838-4-1.aspx</link><description>hi friends &lt;br&gt;i am using adodc control in VB 6.0 and connecting it with MS Access I have one query &lt;br&gt;can i create a table in my database through VB while run time?? Please help me</description><pubDate>Fri, 26 Jun 2009 02:15:29 GMT</pubDate><dc:creator>kiwi2047</dc:creator></item><item><title>Problem with file OWC11.DLL in MS Access</title><link>http://www.a1vbcode.com/vbforums/Topic27825-4-1.aspx</link><description>&lt;DIV id=post_message_3543676&gt;Hi all,&lt;BR&gt;&lt;BR&gt;I developed one project using access application(Ms Access 2003). I can run this project with windows xp properly, but I cannot use this application that i developed in MS Access 2003 with Windows Vista and Ms Access 2007. When I run this project with Acces 2007 it appears error "Your Microsoft Office Access database or project contains a missing or broken reference to the file 'owc11.dll' version 1.0.&lt;BR&gt;&lt;BR&gt;How can i fix this problem? Please help me. Thank you. &lt;/DIV&gt;</description><pubDate>Tue, 23 Jun 2009 04:13:44 GMT</pubDate><dc:creator>sok</dc:creator></item><item><title>a network database</title><link>http://www.a1vbcode.com/vbforums/Topic27822-4-1.aspx</link><description>&lt;br&gt;for my vb project, i have to develop a system for a network environment. it means a central database to the application. i don't know how to do that. i am hoping to do a sql database. guyz please help me to do this. if you have any tutorials or any of your advices, will help me a lot.</description><pubDate>Mon, 22 Jun 2009 12:07:48 GMT</pubDate><dc:creator>rocks_lp</dc:creator></item><item><title>SQL Express</title><link>http://www.a1vbcode.com/vbforums/Topic27093-4-1.aspx</link><description>Hi,&lt;BR&gt;I'm new to SQL Server. I just installed SQL Server 2008 Express. Then I opened Management Studio, right clicked on Database and created a new Database. Then I expanded Database, right clicked on Table and created a new Table. Now, my question is, how do I add data to the table I created?&lt;/P&gt;&lt;P&gt;Thanks</description><pubDate>Mon, 23 Feb 2009 07:02:33 GMT</pubDate><dc:creator>shers</dc:creator></item><item><title>Help on Creating a Basic ATM System</title><link>http://www.a1vbcode.com/vbforums/Topic27230-4-1.aspx</link><description>Hi,&lt;br&gt;&lt;br&gt;I am trying to make a basic ATM system, iv got all the interface done and I have made the link to my SQL database etc. the part i'm stuck on is how I can run a check to see if a bank card number matches up to the users PIN number. &lt;br&gt;&lt;br&gt;To simulate the user putting a card into the machine I've used a combo box, and that lists all the cards, that haven't been flagged as confiscated (there's a column in my ATMCards table that I can set to true or false) then after the user has selected a relevant card there's another text box where they can enter in their PIN number. Now what I want to do is, if they chose the card number 1234567890123456 in the combo box and they enter in the PIN 1234 into the text box, then, after clicking the check  PIN Button if the pin is correct they need to be taken to another from where they can check their balance etc., and if its wrong they got three attempts after which point i want to flag that card as confiscated. &lt;br&gt;&lt;br&gt;I know I'm asking quite allot but I'm really stuck I don't even know where to start any help would be greatly appreciated. I'm using VB .net 2005.&lt;br&gt;&lt;br&gt;Thanks in advance</description><pubDate>Fri, 13 Mar 2009 07:52:10 GMT</pubDate><dc:creator>sirk</dc:creator></item><item><title>SQL Express Account</title><link>http://www.a1vbcode.com/vbforums/Topic27311-4-1.aspx</link><description>Hi,&lt;/P&gt;&lt;P&gt;I'm using SQL 2008 Express with a multi user VB.NET Windows application. &lt;/P&gt;&lt;P&gt;Do I have to add each user to the SQL user account? Does NT Authority\SYSTEM work? I do not know how this works. So far I have NT Authority\SYSTEM in the Security-Logins of the Server. But do I have to add it also in the database? In the databse Security-User, I have the following:&lt;/P&gt;&lt;P&gt;dbo&lt;BR&gt;guest &lt;BR&gt;INFORMATION_SCHEMA&lt;BR&gt;sys&lt;/P&gt;&lt;P&gt;I tested the app in one of the users and it gives me error as follows:&lt;/P&gt;&lt;P&gt;Cannot open database "Print" requested by the login. The login failed.&lt;BR&gt;Login failed for user domain\username.&lt;/P&gt;&lt;P&gt;&lt;BR&gt;What could be the reason? &lt;BR&gt;</description><pubDate>Thu, 26 Mar 2009 07:09:55 GMT</pubDate><dc:creator>shers</dc:creator></item></channel></rss>