Re: Da li je moguce napraviti kviz TV SLAGALICA u VB?Pretpostavljam da ti tabela izgleda otprilike ovako:
Code:
ID |Word |AssocIDs
---------------------
1 |garfild |2, 3
2 |macka |-1
3 |strip |-1
ID |Word |AssocIDs
---------------------
1 |garfild |2, 3
2 |macka |-1
3 |strip |-1
U tom slucaju bi ti trebalo nesto kao (pretpostavka je da si napravio konekciju DBConn kao sto je u Menadzeru samo ka svojoj bazi):
Code:
Function getString(strID As Integer, strPojam As String, iIDs() As Integer) As String()
Dim rs As ADODB.Recordset
Dim strIDs as String
Set rs=DBConn.Execute("SELECT ID, Word, AssocIDs FROM ImeTabele WHERE ID = '" & strID & "'")
strPojam = rs.Filds(1)
iIDs = split(rs.Filds(2))
End Function
Function getString(strID As Integer, strPojam As String, iIDs() As Integer) As String()
Dim rs As ADODB.Recordset
Dim strIDs as String
Set rs=DBConn.Execute("SELECT ID, Word, AssocIDs FROM ImeTabele WHERE ID = '" & strID & "'")
strPojam = rs.Filds(1)
iIDs = split(rs.Filds(2))
End Function
Tu je problem sto sad moras jos da prozivas istu f-ju da bi dobio i konkretne reci cije si ID-ove dobio. Takodje ID-ovi su bazi verovatno brojevi pa je zaznuto da ih korisis u programu kao stringove. Jos bi onaj strPojam trebao biti prosledjen ByRef da bi f-ja mogla da ga promeni. Zapravo ti nisam napisao ceo kod jer nemam vremena a potrebno je sad da za svaki element niza iIDs napravis upit SELECT Word FROM ImeTabele WHERE ID = iIDs(xxx). To je mnogo posla. Pogledaj varijantu sa bazom koju sam ja dao
Code:
Function getAssociates (mainWord as Strin) as String()
Dim rs As ADODB.Recordset
Set rs = DBConn.Execute("SELECT Associate from Associates WHERE Word = '" & mainWord & "'")
Dim Assoc(rs.RecordCount) as String 'Nisam siguran za naziv property-a RecordCount
Dim i as integer
i=1
Do While rs.EOF
Assoc(i) = rs.Fields(0)
i = i + 1
rs.MoveNext
Loop
Return Assoc
End Function
Function getAssociates (mainWord as Strin) as String()
Dim rs As ADODB.Recordset
Set rs = DBConn.Execute("SELECT Associate from Associates WHERE Word = '" & mainWord & "'")
Dim Assoc(rs.RecordCount) as String 'Nisam siguran za naziv property-a RecordCount
Dim i as integer
i=1
Do While rs.EOF
Assoc(i) = rs.Fields(0)
i = i + 1
rs.MoveNext
Loop
Return Assoc
End Function
Ti proceni sta je jednostavnije i optimizovanije...
BTW, sto se knjiga tice, ima... ali o tome na neki drugi nacin da nas ne brisu ;).
Re: Da li je moguce napraviti kviz TV SLAGALICA u VB?