Hej, Synd det inte var asp - för då hade du skrivit set minarray = rst.getrows() Tackar, det verkar funka fint! Du kan använda dig av Redim.Preserve MinArray(Ubound(MinArray)+1) ...en liten fråga bara... Hej,Skapa en array med dataset-objekt
Är det någon som kan ge mig VB koden för hur jag skapar en Array som skall innehålla dataset-objekt samt hur jag sätter arrayen med datasetet.
Mvh JensSv: Skapa en array med dataset-objekt
Här är ett saxat motsvarande exempel för att göra det i .net:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<script language="VB" runat="server">
Dim grTable As StringBuilder
Dim sqlStr As String
Dim TotalRows, TotalFlds, c, r As Integer
Sub Page_Load(Source As Object, E As EventArgs)
sqlStr = "Select lname As LastName, fname As FirstName, emp_id As ID, hire_date As [Hired On]
from Employee"
Dim objConnect As New SqlConnection ("server=(local);uid=sa;pwd=;database=Pubs;")
Dim objDataAdapter As New SqlDataAdapter (sqlStr.ToString(), objConnect)
Dim objDS As New DataSet()
'Create and Fill Info Datatable with results
objDataAdapter.Fill (objDS, "Info")
'Declare name variable as a DataTable
Dim GetRows As DataTable = objDS.Tables ("Info")
'Get Table Info
TotalRows = GetRows.Rows.Count
TotalFlds = GetRows.Columns.Count
grTable = New StringBuilder ()
grTable.Append ("<TABLE border=1 Width=60%>")
grTable.Append ("<TR>")
'Loop through data
'Loop through the Columns Fields
For c = 0 To TotalFlds-1
grTable.Append ("<TD><B>" & GetRows.Columns(c).ToString() & "</B></TD>")
Next
grTable.Append ("</TR>")
'First header row is now closed and we loop through our database rows
For r = 0 To TotalRows-1
grTable.Append ("<TR>")
grTable.Append ("<TD>" & GetRows.Rows(r)(0).ToString() & "</TD>")
grTable.Append ("<TD>" & GetRows.Rows(r)(1).ToString() & "</TD>")
grTable.Append ("<TD>" & GetRows.Rows(r)(2).ToString() & "</TD>")
grTable.Append ("<TD>" & FormatDateTime(GetRows.Rows(r)(3).ToString(),2) & "</TD>")
grTable.Append ("</TR>")
Next
grTable.Append ("</TABLE>")
'Close and clear our connections
objConnect.Close : objConnect = Nothing
objDataAdapter = Nothing : objDS = Nothing
End Sub
</script>
<html>
<body>
<%=grTable.ToString()%>
</body>
</html>
Sv: Skapa en array med dataset-objekt
Dim antalDataset as Integer = 3
Dim Datasets() As Dataset
ReDim Datasets(antalDataset - 1)
Datasets(0) = DS1
Datasets(1) = DS2
Datasets(2) = DS3Sv: Skapa en array med dataset-objekt
Om jag inte vet hur många som 'antalDataset' som skall sättas (sker dynamiskt) hur dimmar jag upp arrayen då?
Mvh Sv: Skapa en array med dataset-objekt
Då omdimentionerar du arrayen till befintlig storlek +1, så denna rutin kan du lägga i en loop om du känner för det.
Du kan också använda dig av en ArrayList som sägs vara lite snabbare.
Dim arrList as New ArrayList(100)
Dim i as Long
For i = 1 To 50000
arrList.Add(i)
Next
Sv: Skapa en array med dataset-objekt
behöver du verkligen flera datasets? ofta behöver man bara olika Datatable som då kan sparas i ett och samma dataset (baserat på att det inte krävs olika sorters logik såsom relationer m.m. / dataset)...Sv: Skapa en array med dataset-objekt
jo de är naturligtvis den lösningen man skall ha men koden som skriven i ASP är "lite" komplicerad (gäller ett mapp-meny-system) som spindlar upp en mappstruktur. Varken orken eller tiden finns att skriva om allt just nu.
Tack för alla hjälp!
/Jens