|
yes way not retriving data only once for my local DB...
can you please post a sample code i need it only for filling my DB
tanks,
Patric.
|
|
|
|
|
hi everyone, i need help..
in vb.net, when i shows a form, it will pop up smoothly (effect), i'm now trying to create a form without border style (none), nah this time the form will immediately pop up without effect..
is there any properties to make it pop up smoothly?
thank's before.. 
|
|
|
|
|
No, there's no property dedicated to smoothnes in popping up. You could change the size of the Window when it's shown in steps, simulating the effect - if it's important enough.
Bastard Programmer from Hell 
|
|
|
|
|
I have used opacity starts at 0 to 100
with a small time delay
|
|
|
|
|
Hello,
When loading grids with data tables, if you want to have nested tables (grid shows a + to expand and show the 2nd table) you create a datarelation - method available in the dataset object. I have a list(of ???) that I feed the grid for it's datasource where the ??? is an object(entity) that has fields (just like a table). Is there an equivalent to creating a datarelation so I nest the entity objects or would I have to convert the entities to datatables to do this?
Any help would be appreciated...
Nathan
'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous
|
|
|
|
|
nlarson11 wrote: When loading grids with data tables, if you want to have nested tables (grid shows a + to expand and show the 2nd table) you create a datarelation - method available in the dataset object.
No, if you want to display your data in that way you'll need a drill-down grid. Relations make sure the data stays consistent; meaning that if there's a relation between two fields, that one will only accept values that occur in the other.
Some drill-down grids use those relations to create the subgrids dynamically.
nlarson11 wrote: Is there an equivalent to creating a datarelation so I nest the entity objects or would I have to convert the entities to datatables to do this?
This is not natively supported; you'll need a grid that support the drill-down functionality, or create your own.
Bastard Programmer from Hell 
|
|
|
|
|
Thank you Eddy,
I have a grid that supports drill-down so that's not a problem. I was just hoping to use entities instead of having to convert but from what you said, doesn't look like that's possible.
Nathan
'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous
'Life's real failure is when you do not realize how close you were to success when you gave up.' ~ anonymous
|
|
|
|
|
Hi All..
I have problem in VB program i made, using CR n database Access, when i run the program in my compie it works but not in other compie, after make compile n setup..the transaction i made in a form couldnt be appearenced in other computer..when run in other computer appear 'Run-time error '-2147217913 (80040e07)': Data type mismatch in criteria expression'
whats the mistakes i made?
Thanks for the solusion...
|
|
|
|
|
Judging by the error message, you have an SQL expression or query that isn't written correctly. Since we know nothing else of your application, it's impossible to be any more specific than that.
|
|
|
|
|
But hows that happen.. cause the program/application i made could run and the transaction form could appear in my computer and my friends comp.that also running VB program in her comp.. but it cant appear/run properly in 2 others computer?hows that?
thanks for Your concern..
modified 26-Jan-12 20:45pm.
|
|
|
|
|
Well, we still haven't seen the code yet that's throwing this error.
But, your code is treating a numeric field in the database as a text field, or some other mismatch like that. The testing you did on your machine apparently didn't cover how your users are actually using the application.
|
|
|
|
|
this is the transaction form code:
Sub Cetakprinter()
Dim MGrs As String
Printer.Font = "Courier New"<code></code>
Printer.FontSize = "10"
Call BukaDB
RSGaji1.Open "select * from Gaji1 Where NomorSlp In(Select Max(NomorSlp)From Gaji1)Order By NomorSlp Desc", Conn
RSKasir.Open "select * from kasir where kodeksr=" & RSGaji1!KodeKsr & "", Conn
RSKasir.Requery
RSPegawai1.Open "select * from Pegawai1 where NIP=" & RSGaji1!NIP & "", Conn
RSPegawai1.Requery
Printer.Print
Printer.FontBold = True
Printer.FontBold = False
Printer.CurrentX = 0
Printer.CurrentY = 0
Printer.Print Tab(15); "RSUD SARAS HUSADA "
Printer.Print Tab(20); "PURWOREJO "
MGrs = String$(40, "=")
Printer.Print Tab(5); MGrs
Printer.Print
Printer.Print Tab(5); "Nomor Slip : "; RSGaji1!NomorSlp
Printer.Print Tab(5); "Tanggal : "; Format(RSGaji1!Tanggal, "DD-MMMM-YYYY")
Printer.Print Tab(5); "NIP : "; RSGaji1!NIP
Printer.Print Tab(5); "Nama : "; RSPegawai1!NamaPgw
Printer.Print Tab(5); "Petugas : "; RSKasir!NamaKsr
MGrs = String$(40, "-")
Printer.Print Tab(5); MGrs
RSDetail.Open "select * from DetailGaji Where NomorSlp In(Select max(NomorSlp)From DetailGaji)", Conn
RSDetail.Requery
RSDetail.MoveFirst
Do While Not RSDetail.EOF
Set RSPerkiraan1 = New ADODB.Recordset
RSPerkiraan1.Open "select * from Perkiraan1 where KodePrk=" & RSDetail!KodePrk & "", Conn
Printer.Print Tab(5); RSPerkiraan1!NamaPrk;
If Left(RSDetail!KodePrk, 1) = "0" Then
Printer.Print Tab(25); RKanan(RSDetail!Jumlah, " Rp ###,###,### +")
Else
Printer.Print Tab(25); RKanan(RSDetail!Jumlah, " Rp ###,###,### -")
End If
RSDetail.MoveNext
Loop
Printer.Print Tab(5); MGrs
Printer.Print Tab(5); "Pendapatan :";
Printer.Print Tab(25); RKanan(RSGaji1!Pendapatan, " Rp ###,###,### +");
Printer.Print Tab(5); "Potongan :";
Printer.Print Tab(25); RKanan(RSGaji1!Potongan, " Rp ###,###,### -");
Printer.Print Tab(5); MGrs
Printer.Print Tab(5); "Total :";
If RSGaji1!Pendapatan = RSGaji1!Potongan Then
Printer.Print Tab(34); RSGaji1!Pendapatan - RSGaji1!Potongan
Else
Printer.Print Tab(25); RKanan(RSGaji1!Pendapatan - RSGaji1!Potongan, "Rp ###,###,### +");
End If
Printer.Print Tab(5); MGrs
Printer.Print
Printer.EndDoc
Printer.KillDoc
End Sub
thank you for your concern...
|
|
|
|
|
rizaky2011 wrote: could you please give me example for code treating numeric field in the database
as a text file
No, because that makes no sense what so ever. You never treat a numeric column in a database as a "text file".
Again, something in your SQL statements is treating a numeric column as a string column or the other way around. We have no idea how your database tables are defined, so it's impossible for us to tell you what you did wrong. This is where YOU start investigating those possibilities. We've given you the stuff you should be checking for.
BTW, your SELECT statements that look like this are very suspicious. I have no idea what you're trying to do with them:
select * from Gaji1 Where NomorSlp In(Select Max(NomorSlp)From Gaji1)Order By NomorSlp Desc
The IN clause doesn't make sense since the Max(NomorSlp) only returns a single number. The IN clause shouldn't be used in that case.
|
|
|
|
|
is that so?but that's statement seem doesn't effect the running program..but when i run the program, the error appear and it's point to this code:
Dim SimpanGaji As String
SimpanGaji = " Insert into Gaji1 _ (NomorSlp,Tanggal,Jam,NIP,Pendapatan,Potongan,GajiBersih,KodeKsr) values " & _
"('" & LblNomorSlp & "','" & CDate(LblTanggal) & "','" & LblJam & "', " & _
"'" & Combo1 & "','" & LblPendapatan & "','" & LblPotongan & "', " & _
"'" & LblTotal & "','" & LblKodeKsr & "')"
Conn.Execute (SimpanGaji)----> point to this code
debug the error point to --> Conn.Execute (SimpanGaji)
Thank you..
|
|
|
|
|
Yes, it is so.
Wow. This little gem could very easily be causing your problem. Your INSERT statement is treating every single value as a string. Your database table (Gaji1) probably doesn't have every field defined as some variant of char.
The second LARGE problem with this code is that you're using string concatentation to build the SQL statement. This is a HUGE security risk which can end up detroying your entire database.
Google for ".NET Parameterized Queries" for explanations as to why I said that and how you can avoid it as well as makding your SQL related code much easier to understand and debug.
|
|
|
|
|
so i have to change the INSERT statement?this the data type of each filed in my table Gaji1,
NomorSlp data type = Text
Tanggal = Date/Time
Jam = Date/Time
Pendapatan = Number
Potongan = Number
GajiBersih = Number
NIP = Text
KodeKsr = Text
so it's could not be defined as string?should i change into variant, all of them?
Sorry to much asking, cause this is 1st time i made a program 
modified 30-Jan-12 23:07pm.
|
|
|
|
|
Yes. You have three numeric fields in that table and your INSERT statement is treating them as strings. See the ' characters you're putting around those values??? Don't. And don't build the SQL statement the way you are now. Learn about parameterized queries and use them. Had you done so alreay, you may not have even seen this problem.
|
|
|
|
|
so should i change the statement? can You suggest me the right code..
the samples? please? cause i'm newbie..
thank You
|
|
|
|
|
Apparently you don't know anything about the SELECT statement format. For numeric fields, you don't put ' characters around the values.
|
|
|
|
|
Ya,you right specially bout the ' character,so could you give me the samples please? t
Thank you..
|
|
|
|
|
You're kidding, right? Ever hear of experimenting a little? It's the best way to teach yourself something. Make a little change, see what it does.
Dim query As String = "INSERT INTO table (numericField1, stringField1) VALUES (23, 'SomeString')"
BTW, the way you built your SQL statement is the worst possible method you could use to do it. Google for ".net parameterized query" and start reading. Seriously.
|
|
|
|
|
i know that statement.. i shouldn't put the ' character to numeric fields..
btw .net parameterized query thats for vb.net or vb?
|
|
|
|
|
VB.NET is what you're using, isn't it??
The concept is exactly the smae for any language.
|
|
|
|
|
No, i use VB..
Btw, can i ask again? How to delete record in DataGrid direct from DataGrid control when the program running,and it could effect to database, i use access database.. Thank you..
|
|
|
|
|
VB6?? If so, you'r using a dead language. One I haven't touched in over 10 years. So no, I can't tell you.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
