A1VBCode Forums / Visual Basic (VB 4/5/6) / Database Programming

VBA / ACCESS Question

SomeGuy1313 — Mon, 10 Nov 2008 08:11:49 GMT

I am new to VBA does anyone know how this SHOULD have been written... I know every IF needs an END IF and the word OR does not seem to work so how would I cover all the below... and writing an IF for each does not work.

Private Sub cmbInternalStatus_Exit(Cancel As Integer)

If cmbInternalStatus = "Approved" And cmbWebStatus = "Approved" Then
Cancel = False
If cmbInternalStatus = "Closed (Other)" And cmbWebStatus = "Closed (Other)" Then
Cancel = False
If cmbInternalStatus = "Director Review" And cmbWebStatus = "Functional Analysis" Then
Cancel = False
If cmbInternalStatus = "Disapproved" And cmbWebStatus = "Disapproved" Then
Cancel = False
If cmbInternalStatus = "Functional Analysis" And cmbWebStatus = "Functional Analysis" Then
Cancel = False
If cmbInternalStatus = "Fwd for Cmd Analysis" And cmbWebStatus = "Fwd for Cmd Analysis" Then
Cancel = False
If cmbInternalStatus = "Fwd for Decision" And cmbWebStatus = "Fwd for Decision" Then
Cancel = False
If cmbInternalStatus = "Fwd to SME" And cmbWebStatus = "Fwd to SME" Then
Cancel = False
If cmbInternalStatus = "Ineligible" And cmbWebStatus = "Ineligible" Then
Cancel = False
If cmbInternalStatus = "Pending Payment" And cmbWebStatus = "Approved" Then
Cancel = False
If cmbInternalStatus = "Staffing (TL Only)" And cmbWebStatus = "Approved" Then
Cancel = False
If cmbInternalStatus = "Team Lead Review" And cmbWebStatus = "Functional Analysis" Then
Cancel = False
If cmbInternalStatus = "Tech Review" And cmbWebStatus = "Functional Analysis" Then
Cancel = False
Else
MsgBox "Internal Status does not match Web Status, please correct.", , "Silly Analyst!"
Cancel = True
End If

End Sub

Manipulating records

victor64 — Sun, 16 Nov 2008 10:31:43 GMT

Hello,

How do I determine the total number of records founds?, I would also like to add to two buttons to move to the next or previous records, what code should I add in those button?

How do I view the records in a textbox control?

Thanks,

Victor

Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\aopt2002orgorg.mdb;Persist Security Info=True;Jet OLEDBatabase Password=testaopupdate"
Dim objConnection As New OleDb.OleDbConnection(ConnectionString)

'data adapter
Dim objDataAdapter As New OleDb.OleDbDataAdapter(mySQL_Statement, objConnection)

'dataset object
Dim objDataSet As New DataSet
'fill dataset
objConnection.Open()
?
?
?
objDataAdapter.Fill(objDataSet, "SN")
objConnection.Close()

update datase from text file

victor64 — Thu, 13 Nov 2008 06:28:29 GMT

Hello,

I have a text file with data for certain fileds that are in certain position, for example data for field1 is in yhe firts 5 spaces in each line, data for field2 is
from the 7th space up to the 10th space, field3 from the 11th space to the 19 space etc.....

I only know how to open and read the entire text into a form control, how do you read line by line and extrat the data using the "inset" command to populate the ACCESS table. I can use either vb/vb.net

Thanks in advance

Victor

Create a Sql Database

bonhomme — Mon, 03 Nov 2008 14:17:13 GMT

Can someone help me to create a database for a web application in VB.NET. I am new in VB.NET so I would like to know how to deal with those basic issues

Any help please

images in dataset

rlangi05 — Mon, 22 Sep 2008 22:22:33 GMT

Hi, I could use some help regarding putting images in a dataset.

I'm developing a windows application that accesses an sql server database in another server, an sql server 2000 database. A table, tblProducts, contains a field called ProdImage with type VarChar. ProdImage contains the path of the image which is stored in the server's file system.

I need to be able to load the records of tblProducts into a dataset including the image and not just the path since I want to use the images in a report.

What is the best way to do this? Does anybody have samples I can look at? Would doing this be better in SQL server 2005?

Thanks

Pass Paramater to DB2 in VB.net

gehan — Tue, 14 Oct 2008 12:57:04 GMT

Dear all

This code is working well in SQL Server But I need it in DB2 and the pass parameter @BLOBData is not valid in DB2

Dim cmd As New OleDb.OleDbCommand
Dim sql As String = "INSERT INTO BLOBTest (BLOBData,BLOBID)" & _
"VALUES (@BLOBData,'" & Text1.Text & "')", con

Dim strBLOBFilePath As String = _
"C:\F01Siocx.bmp"

Dim fsBLOBFile As New FileStream(strBLOBFilePath, _
FileMode.Open, FileAccess.Read)

Dim bytBLOBData(fsBLOBFile.Length() - 1) As Byte
fsBLOBFile.Read(bytBLOBData, 0, bytBLOBData.Length)
fsBLOBFile.Close()

Dim prm As New OleDbParameter("@BLOBData", OleDbType.LongVarBinary, _
bytBLOBData.Length, ParameterDirection.Input, False, _
0, 0, Nothing, DataRowVersion.Current, bytBLOBData)
cmd.CommandText = sql
cmd.Parameters.Add(prm)
con.Open()
cmd.ExecuteNonQuery()
con.Close()

Vb.net and Sql Select From Group

DekaFlash — Fri, 10 Oct 2008 11:52:06 GMT

Deleting

Can't seem to get it right

daveofgv — Tue, 07 Oct 2008 17:19:39 GMT

Hello All,

Simple question to you, but hard for me to figure out.......

I am making an Amber Alert program. I have everything designed and made and created an access database. I have a successful connection to my database. I have set the text property in the DataBinding to each textbox on my form.

For some reason I can not update information from the DataSet to the Database. I have tried to use TableAdapterManager.UpdateAll (which I read about on msdn site), but nothing works.

I feel dumb since I know I am missing something easy.

Can anyone please either help me connect the dataset to update the database or direct me to a tutorial that explains this in a 2nd grade level.......

Thanks in advanced...

daveofgv

LAN codes

Shyner — Tue, 22 Jan 2008 04:36:51 GMT

[font=Arial][size=7]Hello A1Vbcodes members,

I have just finished writing a program for a Pharmacy shop, it works fine on only one computer, but when we try it in three computers networked together with the database on one of the computers it did not work on those without database. Please somebody help me out!!![/font]

HELP! how can a user access a specific folder in Visual Basic 6

simply_me — Wed, 01 Oct 2008 09:16:35 GMT

I really need help on this one.. :-S

Once a user creates his own account, a folder for him will be automatically created. this folder will allow him to store files in it. remember, only this specific user can access his folder (when visual basic project is being executed)
and if possible, user list and files should be stored in a database.

Thanks in advance! i really really need this asap.

filling data in combo box from SQL server

buffdaemon_live — Tue, 22 Jul 2008 10:50:48 GMT

Dear all,

I wanted to fill the combo box with the data from my SQL server database.
There are two column in the table, product_id and product_name.

for example:

product_id| product_name
---------- --------------
1| pencil
2| NoteBook

I was successful in displaying the product name in combo box. The code is given below. I wanted to show the product_name in the combo box and when the user selects the product_name from combo box i should be able to get its product_id. How do i do it? Please help me guys for my academic project.

Below is my code.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim conn As New System.Data.SqlClient.SqlConnection("Network Library=DBMSSOCN;" & "Data Source=abacus\mydatabase;" & "Initial Catalog=CADCAM2;" & "Integrated Security =True;" & "MultipleActiveResultSets=True;")
Dim strSQL As String = "SELECT * FROM product"
Dim da As New System.Data.SqlClient.SqlDataAdapter(strSQL, conn)
Dim ds As New DataSet
da.Fill(ds, "product")

With Me.cmbDropDown
.DataSource = ds.Tables("product")
.DisplayMember = "product_name"
.ValueMember = "product_id"
.SelectedIndex = 0
End With

end sub

Private Sub cmbCproduct_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbCproduct.SelectedValueChanged

'when the user selects the product_name from the combo box i should be able to get the product_id.
End Sub

DataGridView update problem

Vladimir Nikitovic — Sun, 31 Aug 2008 09:23:44 GMT

Hi,
(This post with pictures: http://www.ti.rs/problem/problem.html) - recomended for understanding

Short intro: Program is for managing supplies of the restaurant
There are simple items to sell or complex items with ingredients. This part of program manage complex items with ingredients.

There is DataGridView, on the form which is fill by: Me.MagacinSlozeniTableAdapter.Fillby(Me.KonobarDataSet.MagacinSlozeni, BrojID)

Using combobox in Datagridview I chose Items, if item is complex, already with ingredients I fill table with:
Me.MagacinSlozeniTableAdapter.ClearBeforeFill = False
Me.MagacinSlozeniTableAdapter.FillByMagacinID(Me.KonobarDataSet.MagacinSlozeni, BrojID, KolicinaID, MagacinID)

Problem is when I fill items with, ingredients, it is shown in DataGridView but NOT update to database
All items which are chosen manualy from combo box is updated, but programmatically added items NOT

Database login failed

kwan_kwan08 — Wed, 06 Aug 2008 21:58:25 GMT

I try to access a same database using two different system,

a) a window based system and
b) a web based system.

Both are using VB.NET. But it seem like the there is either one of them can access the database at a time. When one of them running, the other system unable to access. The error is

"Cannot open user default database. Login failed. Login failed for user 'PY1234\Jen'."

PY1234/Jen is a window authoization.
I was using MS SQL Sever Express 2005 and the connection string are

<connectionStrings>
<add name="WhyWhy.My.MySettings.BookShopConnectionString" connectionString="Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\bin\Debug\BookShop.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
providerName="System.Data.SqlClient" />
</connectionStrings>

As a conclusion i need the database to be connected by multiuser at the same time
Any help is appreciated.

VB 6.0 Database

zaga143 — Mon, 21 Jan 2008 10:33:55 GMT

I'm doing VB code in the MS-Access. How is this? Is this the good practice for programming?

Thank you.

Multi Select Terms And Conditions

Tom_da_hawk — Mon, 14 Jul 2008 05:52:49 GMT

Hi,

I am coding a client/server application which needs the user to select and save multiple terms and conditions through a form. Each clause (terms and conditons) can be of any length. These terms and conditions will change for each master record and hence the user should be able to select which to include and exclude from the final printout.

What should be the best logic and method to implement this considering the fact that the database will grow very big over a period of time? Please assist. Its urgent.

Front-end IDE: VB6
Database MS Access (To be changed to server class later on)

Thanks in advance,

Tom

Transfer Data from One Table to another

corelbasic — Sun, 03 Aug 2008 20:19:52 GMT

Please Master's,

I am working on a project. After making use of the Data in Publish(Table) I want it to transfer to Publish_Archive (Table) for history purpose, on a single command button click. The two table located on single Database in VB6.

Please I need you answer.

Thanks

Database login failed

kwan_kwan08 — Wed, 06 Aug 2008 21:56:11 GMT

Edit & Save Data

jessgab — Tue, 29 Jul 2008 23:01:34 GMT

My friends & I have a problem with our one of the table of our SQL Data...

One of our Table Column shows like this when we view it in sql :

ChaInvent
(Binary)

We dont know how to read & edit inside that CharInvent..??
That ChaInvent has all the information we need because that is place where are all the Inventory on the Game of the Character stored like weapons, armors, potion, ..etc..haysss..Any Help here?

Are there VB code that will help us here or any script or program?? I tried to search all the Info here but NO LUCK...

excel printout

ramciv — Sat, 26 Jul 2008 08:16:30 GMT

how could i print out my report using excel instead of datareport?

stored procedures in the database

sbcm1125 — Thu, 17 Jul 2008 09:47:13 GMT

please help me.. why are codes placed in the stored procedures of the database and not in the web forms? what are the advantages? please please help me! thanks!

need help in viewing records from access to listview

huxley — Thu, 03 Jul 2008 12:12:12 GMT

hi everyone. im new in vb6 and i want to view my records from microsoft access to my listview in the form. can anyone help me with this problem. please.i really want to view my records in listview including the columns.. please help me. please.thanx in advance..

Need Help Connecting to a Access Database on the Internet

SpyderZ — Tue, 01 Jul 2008 14:12:17 GMT

I am trying to connect my vB6 program to an internet database. I am using an Access database, and its uploaded on the internet. I have the site.

http://users6.nofeehost.com/SpyderZ/Db/Dbinventory.mdb

The host supports Microsoft Access databases, and I have been trying to piece together a code that allows it to connect for the login process.

The problem is, I can only get the program to work when the database is local, but when its on the internet, I can't seem to get it to connect. I need it to say connected so it can login.

Here is the code I am using:
[code]Private Sub Form_Load()
Dim strconn As String
flag = False
flag2 = False
Set conn = Server("ADODB.Connection")
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ";Persist Security Info=False"
Server = "http://users6.nofeehost.com/SpyderZ"
Source = "/Db/Dbinventory.mdb"
conn.ConnectionString = strconn
conn.Open
End Sub[/code]

Someone please help me!

VB.net and MySQL

warped — Sat, 28 Jun 2008 19:08:35 GMT

using VB.net and creating a new database project, why wont VB.Net see the MySQL program running so that i may use it as my database source?

Tutorials?

purpulfantom — Tue, 12 Dec 2006 15:17:35 GMT

Does anyone know of a tutorial (written in basic, easy to understand) that can teach me how to read and write from a database.

I know what a database is, I know what a Type declaration is and does, but getting stuff to and from a file is something I can't seem to manage (basic text is all I can manage).

As the description to my post says, all I get are really advanced complex stuff on databases, or ones that don't actually tell me what the code is doing ("yes, declare this and pass it by this function. This is the important bit, but sucks to be you..." :rolleyes.

Thx

save image in sql database

bapu — Sat, 14 Jun 2008 16:19:57 GMT

hi all

I am learning sql and i have created one small application with one table with ImageID and Pic as two columns, it works fine i can add new image in to database and i can also delete saved image from database, but main problem is when ever i made any changes to database it doesn't show any changes to form i mean it's not refreshing database or dataset

here is the few code for it

Private Sub LoadImages()

Try

conImage = GetDBConnection()

dsImage.Clear()

Me.daImage.Fill(Me.dsImage.Images)

Catch ex As Exception

MsgBox(ex.Message)

End Try

conImage.Close()

conImage.Dispose()

Call PoChng()

End Sub

this is for save and delete click event code

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

'get sql connection

Try

conImage = GetDBConnection()

Dim sSQL As String = "INSERT INTO Images (Pic) VALUES(@pic)"

commImage = New Data.SqlClient.SqlCommand(sSQL, conImage)

Call GetImage()

commImage.ExecuteNonQuery()

MessageBox.Show("Image successfuly saved in database", "Image Load")

Catch ex As Exception

MsgBox(ex.Message)

End Try

commImage.Dispose()

conImage.Close()

conImage.Dispose()

Call LoadImages()

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

SelectedImage = ("DELETE FROM Images WHERE ImageID = " & txtImageFile.Text)

conImage = GetDBConnection()

Try

commImage = New Data.SqlClient.SqlCommand(SelectedImage, conImage)

commImage.ExecuteNonQuery()

MsgBox("Image successfuly deleted from database", MsgBoxStyle.Information)

Catch ex As Exception

MsgBox(ex.Message)

End Try

commImage.Dispose()

commImage = Nothing

conImage.Close()

conImage.Dispose()

Call LoadImages()

End Sub

i am stuck with this since last 3 weeks any help

coding

Jermaine — Tue, 27 May 2008 14:18:54 GMT

Hey guys i am very new to VB i am just learn, i was suppose to do a project which is a major part of my final grade i didn't understand Vb full and choose to do it on ATM's not knowing it would so complex. I have already submitted the report portion of my assignment so changing the topic is not an option. My problem that i am suppose to create a vb project for a ATM machine with the functions of withdrawing and Balance Enquiry, but i don't understand how to code for the following functions could someone please assist me. It would be most definitely appreciated

Export/Import Xml File TO ODBC

gopinath — Fri, 13 Jun 2008 08:14:23 GMT

Hai Friends

Anybody knows xml file import to ODBC.. ? I need to Imort my xml file to

TallyODBC.

Thanks

Coding to update a database help???

unclejackb — Thu, 05 Jun 2008 07:22:14 GMT

I'm wondering if anyone on here could help me out? Im currently in college and have until today to hand in a final banking system visual basic program and I cant get the update database button to work properly and I haven't a clue why

Heres the code:

Private Sub cmdupdate_Click()
mytable.Close
Set mytable = mydb.OpenRecordset("table1")
mytable.MoveFirst
txttitle.Text = mytable!Title
txtfirst.Text = mytable!customer
txtsur.Text = mytable!surname
txtbalance.Text = mytable!balance
txtnumb.Text = mytable!customerid
Records = mytable.RecordCount
counter = 1
lbldisplay.Caption = Records & "Records"
cmdnext.Enabled = True
End Sub
------------------------------------------

The Error says object required on the lbldisplay line, I've set up records in a module and made it an integer, If anyone has any idea why its not working I would be so grateful of a reply

Dataset merge

SLG29 — Wed, 11 Jun 2008 15:22:08 GMT

Dataset merge

Could anyone help with this question that I've got to answer as part of my course

dsOne is a dataset containing 2 rows and 2 columns the columns are personid and personname, primary key of dsone is personid

dsTwo is another dataset containing 1 row and 3 columns which are personid, personname and persontype

One of the rows in dsone has same value in personid column as row in dstwo, no other rows have matching personid values, merge is done with this code

dsone.merge(dstwo, true, missingschemaaction.add)

I've got to state how many rows dsone and dstwo will have after the merge and whether or not dsone will add the persontype column

I'm sure dsone will add the persontype column with the code missingschemaaction.add but not sure on how many rows each of the 2 datasets will contain, will dsone contain 3 rows (2 + 1 from merge)?

Any help would be appreciated, I've looked long and hard on the web but can't see any suitable examples for this scenario

Thanks in advance

How do it ..?

smart sout — Thu, 29 May 2008 05:08:28 GMT

Hi all,

Can any 1 please suggest me a solution for my query?

I have project in vb.net and database access with ADO library

and i want close the recordset every once open the form

===================================== this my code ---------------------------

Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus

rs1.Open("customers", cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

rs1.MoveFirst()

rs1.Find("cname = '" + TextBox1.Text + "'")

If rs1.EOF = True Then

MsgBox("Sorry ... This customer is not registry !! ")

rs1.Close()

rs1 = Nothing

closetext2()

Exit Sub

Else

TextBox2.Text = rs1("code").Value

rs1.Close()

rs1 = Nothing

End If

End Sub

=========================================================

Please help me....

Thanx in advance

smart

How do i change the text box value automatically from database when a combo box value selected?

mbhakt — Wed, 28 May 2008 10:30:15 GMT

Hi all,

Can any 1 please suggest me a solution for my query?

I have 1 combo box and 1 text box in my project. The combo box is populated thru the entries in database. For example : if i select the item name from Combo box then the rate should be automatically appeared in text box. It looks simple but i didn't got the solution for the same.

Please help me....

Thanx in advance

Maddy

Geeting all that data from the ms access databse in to a dataset

keerthi123 — Fri, 30 May 2008 14:32:42 GMT

Hello all,
I have a database with one table(EMtable) IN MsAccess database which has four fields namely Time,Weather,Drink, Medicine
and filled with values like morning ,Hot Coffee , No respetcaively

like

Time Weather Drink Medicine

Morning Hot Coffee No
Morning Warm Q No
Q Hot Coffee No
Afternoon Hot Q No

Can any one sayor provide me the code how to get this table into the dataset

Thanking you
Keerthi

Updating Code

GeekO — Mon, 26 May 2008 20:39:04 GMT

I have been assigned the task of updating some code which was written in an older version of vb. I am unfamiliar with the code and havent programmed in vb in quite a while.

This function is giving me a syntax error. How would you suggest to fix this function?

Public Function bindthissql_ODBC(ByVal fds As Object, ByVal fsql As Object) As Object
New OdbcDataAdapter(StringType.FromObject(fsql), Me.dbconn).Fill(DirectCast(fds, DataSet), "Thedata")
Return New DataView(DirectCast(LateBinding.LateGet(fds, Nothing, "Tables", New Object() { "Thedata" }, Nothing, Nothing), DataTable))
End Function

How do I connect an access database which is on web server

corelbasic — Mon, 26 May 2008 19:43:44 GMT

Hello Mater’s,

I need to keep an access database on web server and to connect it via ado using vb6 and also how to connect to mysqldatabase on Web server.

I ‘m working on Store Application which is need to Accesses in various Branch of the store in various area, they will use the same application in all location of the store. They will be able to interact with other store to confirm if Store A product is finish they check Store B if product exist.

Please I need your help!

hyperlinks inside datagrid...

mcomoro — Tue, 20 May 2008 03:47:42 GMT

can somebody help me in creating hyperlinks inside my datagrid using vb???

mark

which back end database should I use in PHP?

charliemears — Fri, 16 May 2008 13:45:00 GMT

Hi

I am new to PHP and practicing to manage data in database...
Im just want to know about this and hope someone could help me...
* is there stored in mysql as the same with ms sql?
* on php programming, which database back end should I used? why?
* what are the advantage or disadvantage if am I going to use ms sql in php and publish it into live?
* what features in mysql that are not with mssql?

thanks.....

Filtering recordset multiple times

kemalaldag — Thu, 24 Apr 2008 10:35:03 GMT

I want to use filtering method of recordset in my database, how ever I would like to filter my recordset multiple times. For example lets assume that I have books and its properties in my database and I want to make a filter in that database. First I want to filter according to book name includes "Tom", let say I have 7 books includes "Tom" in it. After that I want to filter THESE filtered records according to their publisher name, which includes "Sunrise Publishing" and then I will have 2 records left. Thats actually what I would like to do.

Is there anyone who could help me about this problem of mine? Thanks in Advance.....

printing pages

Ritniit — Sat, 26 Apr 2008 16:50:33 GMT

Hi Folks,

My name is Rita, and I'm new here. I'm working with vb 6.0 and Sql 2000.

I want to print datagrid control. Since datagrid control cannot mesh with report desginer, i want to have the print dialog box with all the settings with that of the report designer so that i can print all pages and zoom as well.

Please gurus help me out.

Riita

datagrid manipulation using vb.net and sql server database

mhabhelle14 — Mon, 05 May 2008 10:47:28 GMT

[font=Arial Narrow]

[size=7]Hi,

I am developing window based forms connecting with sql server database. I need to capture double click events
for a datagrid and show the value of selected row in the textbox in a new form. Could someone please help me on this.

I am using VB.NET 2003 and sql server

Please reply.

Cheers,
mhabhelle14[/size]

[/font]

Inserting Images to Access / MS SQL Server DB thru VB6 Code plz help.. im using VB6+Access/SQL Server

gul18@hotmail.com — Sun, 11 May 2008 13:31:53 GMT

How to Insert Images to Access / MS SQL Server DB thru VB6 Code
plz help..
im using VB6+Access/SQL Server