|
Hi Experts,
I'm quite new to VB6 & I need to know how to update a field using ADODC in VB6.I think it can't be very heard.but I'm unable to find my error in my code.These are my file Details...
Database - Access97
Database name - db1
file name - FileTbl
fields - Number,Date
Textboxes - txtNum,txtDate
First I need to enter the number & date in textboxes & when I press the ok button, i need to find the record in field "Number", with the value which I entered in the txtNum & need to update field "date" with the value in txtDate.That's all.
I think it's very simple,but I tried many more times..Still I'm unable to understand my mistake.
Please Help Me...This is my code...
Private Sub cmdOk_Click()
Dim conn As Adodb.Connection
Dim rs As Adodb.Recordset
Set conn = New Adodb.Connection
Set rs = New Adodb.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\db1.mdb"
conn.Open
rs.Open "SELECT * FROM FileTbl WHERE Number =" & Me.txtNum
rs!Date = Me.txtDate
rs.Update
rs.Close
conn.Close
Set cn = Nothing
End Sub
Thanks a lot.... 
Thanking you !!!
~ Sathish Chandimal ~
modified on Wednesday, January 27, 2010 7:14 AM
|
|
|
|
|
New to VB6?? Don't bother. Stop now before you pick up a bunch of very bad habits and start by learning VB.NET.
VB6 is long since dead and is no longer supported by MS.
I also refuse to help on VB6 questions anymore because I believe it just promots people to want MS to keep the thing around and working on future versions of Windows.
|
|
|
|
|
Yes...But this is not a new project & I also don't like to programming with oldest languages, but this is a oldest program which coding by VB6 & I have to do some modification on it..
please help me sir...
thanks..
Thanking you !!!
~ Sathish Chandimal ~
|
|
|
|
|
You beat me by 7 hours with this post 
Not only VB6 being disturbing that the OP is new to, but using Access 97 as well 
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
They only just got electricity and inside toilets last month, so they are getting there!
|
|
|
|
|
Dave Kreskowiak wrote: New to VB6?
Take a look at his first post ever, around December of 2008. It's a VB6 question 
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
Private Sub cmdOk_Click()
Dim conn As New Adodb.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Documents and Settings\db1.mdb"
conn.Open
Dim cmd As New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "UPDATE FileTbl SET [date] = " & Me.txtData & " WHERE [Number]=" & Me.txtNum
cmd.CommandType = adCmdText
cmd.Execute
Set cmd = Nothing
conn.Close
Set conn = Nothing
End Sub
Two additional warnings;
0) You're declaring a connection conn, while releasing cn at the end. It should release the conn object, not a new variable. (Is Option Explicit turned on?)
1) You're vulnerable to SQL-injection, using an ADODB.Parameter might help.
Good luck 
I are Troll 
|
|
|
|
|
hi everyone
i have a problem.i have a selector column in my janus gridex.i want when i select this field a particluar cell gets enable and when i deselect the selector column this cell gets disable.my problem is that all the column of my particluar cell gets enable.
|
|
|
|
|
This is a question for Janus, not us. The best source of information on 3rd party controls is the manufacturer of the control. They usually have support forums on their site for questions like this.
|
|
|
|
|
hi
My application is like a brick game where i have to fill the space with
correct brick size.
i have a large rectangular/square container
in that container , i have to place small rectangles or squares
so that there should be less wastage of space in the container.
first my doubt is can we do this application using vb.net or .net
if yes then can you give a little bit idea or a link which can be helpful to me to start this kind of application.
thanking you in advance
vijay kumar D
|
|
|
|
|
I don't have any links to offer, but I am sure Google has lots.
This is really a mathematical problem where you need to create an array showing the empty spaces and then fill them with bricks. I assume that you know the algorithm to do this; the actual coding can be done in any language you choose.
MVP 2010 - are they mad?
|
|
|
|
|
you can do that perfectly with the .NET framework.
you can do it with VB.NET, I would use C# but that is a personal preference of mine.
I suggest you read some CodeProject articles on games.
and you need to learn and help yourself, so search for those articles and start reading!
Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]
I only read code that is properly formatted, adding PRE tags is the easiest way to obtain that. [The QA section does it automatically now, I hope we soon get it on regular forums as well]
|
|
|
|
|
This sound to me very similar to a shipping logic problem.
The below is defiantly not the answer but it is a start.
Dim shapeArray(3, 2) As Integer
Dim containerWidth As Integer = 11
Dim containerHeight As Integer = 7
shapeArray(0, 0) = 5
shapeArray(0, 1) = 5
shapeArray(1, 0) = 2
shapeArray(1, 1) = 5
shapeArray(2, 0) = 1
shapeArray(2, 1) = 1
shapeArray(3, 0) = 5
shapeArray(3, 1) = 6
Dim totalArea As Integer = 0
For i As Integer = 0 To UBound(shapeArray)
totalArea += (shapeArray(i, 0) * shapeArray(i, 1))
Next
If totalArea > (containerWidth * containerHeight) Then
MsgBox("Shapes are unable to fit into container")
Exit Sub
End If
The above code basically checks to see if all the shapes will fit into the container/main box. You will perhaps need to sort the array into longest sides, then position the largest sized shapes into the box first.
Also take into consideration that some of the shapes could potentially be rotated.
Might be worth looking into logic/calculations for packing boxes as well as games development, Id be very interested to know if you find some good samples.
Hope this helps.
|
|
|
|
|
Hi all,
My application works fine.
However, I am connecting to 5 DBF files and the queries are very slow.
[If I copy the DBF files to the local hard drive everything runs fast enough. 30-40 seconds vs. 1-1.5 minutes]
The DBF needs to stay on the network.
I am hoping that using the index will speed things up enough.
Can anyone tell me how or give me a code example on how to index on DBF files?
Tell me more about using DBF files in a speedier manner?
Thanks in Advance
|
|
|
|
|
What are you calling a "DBF" file? Which database engine does it use?
There is no code you put in your application to index a database. All indexing is done by the database engine. What you do there depends on the engine and the design of your database.
|
|
|
|
|
Thanks for ur reply.
I use db2K database.
I have more than 110000 lines in each table.
I want to keep a check for a range of values.
Thant is:
the vales in the table need a search in the first column(ITEM_NBR) of the table(E_Ensemb)
it has values starting from 0001000000 and so on.
I need to set a range/index to search, saying that if a number starts with 0001 search in 00010000000 - 0001999999
if starts with 0002 then search in 0002000000 - 0002999999.
Thanks in advance
|
|
|
|
|
OK, this sounds like an index is required on the database. I don't know DB2 at all so I can't tell you how to do it. But, I'm sure the documentation on DB2's SQL engine would spell that out pretty clearly.
|
|
|
|
|
Hi,
I don't know the details of DB2, however for any database it all depends on the type of the ITEM_NBR field.
if it is a string with a fixed number of digits, you need string compares, something like
... WHERE ITEM_NBR LIKE "0001%"
if it is an integer number, you can use integer compares, something like
... WHERE ITEM_NBR BETWEEN 00010000000 AND 0001999999"
assuming that is supported, or else
... WHERE ITEM_NBR >= 00010000000 AND ITEM_NBR <= 0001999999"
the string operations will be slower than the numeric operations, and if you need to include a conversion function in your SQL, it will be even slower.
Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]
I only read code that is properly formatted, adding PRE tags is the easiest way to obtain that. [The QA section does it automatically now, I hope we soon get it on regular forums as well]
|
|
|
|
|
Thanks for the reply.
Will try it and get back.
|
|
|
|
|
Hi folks
I've searched high and low can anyone inform me if sql server express 2008 is compatible with visual studio 2005 professional? Thanking you x
Kris MCP
|
|
|
|
|
yes, i see no reason why it shouldn't be.
|
|
|
|
|
Haven't tested it but I don't see any reason why it wouldn't work.
|
|
|
|
|
thank you I'll give it a go xx
Kris MCP
|
|
|
|
|
Hi,
could anyone give me a hint for reading the correct size of a apic frame (V2.3). For Text Frames the Frame header gives the correct size. For APIC frames not (seems to be the half of the correct size).
Any idea?
|
|
|
|
|
According to the specification here;
http://www.id3.org/id3v2.3.0#head-70a65d30522ef0d37642224c2a40517ae35b7155[^]
There is nothing that defines what the image size is (except when using a 32x32 PNG icon type $01), so I would imagine you would read the binary data into a buffer, and then check the data against known headers for standard image types.
I have never tried this before so I may be miles of the correct answer.
Have you tried just creating an image object and then pass in the buffer, and see what happens?
You may also want to look at the libraries available here; http://www.id3.org/Implementations[^] to get some info.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
