Type: Posts; User: morbid.ivan
Search took 0.01 seconds.
Public Sub heightLister(cbo As ComboBox)
Dim iWeight As Integer
Dim iCtr As Integer
Dim iLoop As Integer
For iLoop = 4 To 6
How do I sort this out?
is it possible to have a custom autoincrement number that resets every year?
Reference : Adodb
Database : MySql
How to get the auto increment number after adding new record?
Thanks in advance
I solve the problem guys, by re-installing wamp server and finally database shown up.
I am having a problem on WAMP Server (PHPmyAdmin) when I open it, no database on list but still accessible.
When I try to create new database I am getting error "Unknown database" but in ODBC test...
- > Current child-form State (Maximized) let's call this "Form #1",
trying to open another form which is in (Normal) state,
the "Form #1" resizes into "Normal State" and it should not...
How to avoid form resizing when opening another form?
Take a look at this :
Dim rpt_Sql As String
rpt_Sql = "SELECT * From SQL_MAIN " _
& "INNER JOIN SQL_RELATE ON SQL_MAIN.BATCH = SQL_RELATE.BATCH " _
& "Where SQL_MAIN.BATCH='1'"
Thank you... I will wait for your respond.
Result I got :
Query still giving me same message. Cannot found
INNER JOIN SQL_RELATE ON SQL_MAIN.BATCH = SQL_RELATE.BATCH
WHERE SQL_MAIN.BATCH =1
LIMIT 0 , 30
I generated this from MySql, but when I put this on VB6 same error...
Nope, I don't know how.
Can please tell me how to do it?
[QUOTE=digitalShaman;4753955]where does the error pop up? is it in this line:
rs_Report.Open rpt_Sql, conn
? then it has got nothing to do with crystal reports.
The report opens based on query...
Public Function konektodata(strServer As String, uName As String, uPass) As Boolean
On Error GoTo errHandle
MyOdbcOption = optFoundRows + optVB + optBigPacket +...
The table exist. Check this out...
I am having a problem Joining 2 tables in crystal report 9.
Always showing : Remove Table
The database table "sql_relate" cannot be found.
Dim rs_Report As ADODB.Recordset
(Text Type) Primary field
Dim rsGEN As ADODB.Recordset
Dim sqlCriteria As String
Dim cNum As Long
Set rsGEN = New ADODB.Recordset
rsGEN.CursorLocation = adUseClient
rsGEN.CursorType = adOpenStatic
Is my approach is right, having a Front-end every user?
Nothing happens, still slow.
But when I've try to put the program where the back-end database located, I can filter more than 1000 records
less than 3 seconds.
Maybe the link between Back-end...
I split my Ms Access DB to Front-end to Back-end.
Total records stored is more than 30 thousand.
my problem is, when im generating unique number took 10 seconds.
my code :
Dim i As Long
I have a single line formula in my database table.
Field name : salFormula
"= (value 1 + value 2) * 3 / 2"
"= (value 1 + value 2 + value 3) / 2"
"= (value 1 - value 2) * 2"
How to bind combobox to datagrid?
Aside on Autonumber I also have another field to hold series number.
Series -- Name
------- > Going to insert record here (I need this to become E-004)
I am looking for icon set for vbalExplorer or toolbar.
size : 16x16 and 32x32
Thanks in advance
Need help about MDI child form.
How to avoid the current form from sending back? Like in MS Excel, when you "Find and Replace"
the 'FIND form' still visible without sending back.
I get your point. Thanks for the help.
My code now is :
Private Sub cmd_Gen_Click()
Dim dDate As Date
dDate = DateAdd("d", -1, dtPck.Value)
Private Sub Form_Load()
Function dAdd(ByVal dFrom As Date)
Dim i As Integer
i = 0
For i = 1 To 15
dFrom = DateAdd("d", 1, dFrom)
How do I Suppress 'GROUP' if 'Details' section is blank, and then move to next page showing the next 'GROUP'?
GROUP - A
If Blank Details, page...
When I remove 'OFFICE RIBBON' control, exe file runs.
is the form MANIFEST.res can cause this problem? Does putting project on desktop can trigger the compiled file from hiding? And what anti-virus should I use to stop this problem?
I am trying to create a system that can check if the user is online/offline in database.
User account will be displayed in Treeview, icon will be changed depends on status if it is online/offline.
I already solved the problem. I found my mistakes.
Here's the code :
Do Until rs.EOF
myFormula = Format(myFormula, "#.#0")
Dim cn As New ADODB.Connection
Dim m_rate As Double
Dim m_cola As Double
Private Sub cmd_EE_Click()
Dim rs As ADODB.Recordset
Dim myString As String
Dim myFormula As Double
Dim m_B1, m_B2 As...
I need help about, determining if the value is within the range.
In my case, the value doesn't fall to correct bracket/range.
Please see the attached file. Thanks
Click Here to Expand Forum to Full Width
Survey posted by VBForums.