bakgrund min databas uppdateras ca 3 ggr i minuten och jag vill få fram det till en datagrid


vid testning lade jag denna qonnection string i form_Load
vilket jag vet är fel !
Hjälp !
Dim cn As New SqlConnection
MSDATASET.Clear()
cn.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Trading;Data Source=SMO;Packet Size=4096;Workstation ID=SMO"
Dim STR As String = "SELECT SIGNAL,S1,S2,S3,S4,S5,S6,OM1,OM2,OM3,OM4,OM5,OM6 FROM TR@EC"
MPDAD = New SqlDataAdapter(STR, cn)
Dim CMDBYLD As New SqlCommandBuilder(MPDAD)
MPDAD.Fill(MSDATASET, "TR@EC")
MTBL = MSDATASET.Tables(0)
DataGrid1.PreferredColumnWidth = 50
DataGrid1.DataSource = visn_1.dataingr

cn.Close()

Skapa en Timer och lägg koden som laddar gridden där.

/Johan

hur, det var länge sedan och alldrig i net

ska jag lägga det i timern ????

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

Timer1.Interval = 1000



End Sub

ska jag lägga det i timern ????

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

Timer1.Interval = 1000



End Sub
mvh per

något liknande, men då synes inget i datagriden


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

Dim cn As New SqlConnection
cn.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Trading;Data Source=SMO;Packet Size=4096;Workstation ID=SMO"
Dim STR As String = "SELECT SIGNAL,S1,S2,S3,S4,S5,S6,OM1,OM2,OM3,OM4,OM5,OM6 FROM TR@EC"
MPDAD = New SqlDataAdapter(STR, cn)
Dim CMDBYLD As New SqlCommandBuilder(MPDAD)
MTBL = MSDATASET.Tables(0)
DataGrid1.PreferredColumnWidth = 50
DataGrid1.DataSource = MTBL

cn.Close()
Timer1.Interval = 1000


End Sub

mvh Per H

Något sådant ja, men du behöver inte sätta intervallet i loopen. Kolla att Timerns propery enabled = true.

/Johan

Funkar fortfarande ej


Private Sub InitializeTimer()
' Run this procedure in an appropriate event.
counter = 0
Timer1.Interval = 600
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If counter >= 10 Then
' Exit loop code.
Timer1.Enabled = False
counter = 0
Else
Dim cn As New SqlConnection
cn.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Trading;Data Source=SMO;Packet Size=4096;Workstation ID=SMO"
Dim STR As String = "SELECT SIGNAL,S1,S2,S3,S4,S5,S6,OM1,OM2,OM3,OM4,OM5,OM6 FROM TR@EC"
MPDAD = New SqlDataAdapter(STR, cn)
Dim CMDBYLD As New SqlCommandBuilder(MPDAD)
MTBL = MSDATASET.Tables(0)
DataGrid1.PreferredColumnWidth = 50
DataGrid1.DataSource = MTBL
DataGrid1.Show()
cn.Close()

' Run your procedure here.
' Increment counter.
counter = counter + 1
'Label1.Text = "Procedures Run: " & counter.ToString
End If
End Sub



End Class

Vad menar du med "Funkar ej"? Får du något felmeddelande? Uppdateras inte gridden? Uppdateras Label1 om du inte har den raden bortkommenterad? Anropar du InitializeTimer() någonstans?

/Johan

datan kommer ej in i datagriden !,
det crachade aldeles nyss så jag börjar om, men lösningen som den såg ut tidigare gjorde så att jag ej fick upp datan från sql frågan i datagriden, fan också
ligger fortfarande kvar i vb for appl i tankarna vilket gör den här tekniken lite jobbig i blad

mvh Per

Märker du om Timer1_Tick triggas?

/Johan

Löst

Private Sub InitializeTimer() skall läggas vid form load
Tack för hjälpen

Lite förhastat att säga att det var klart
Har lagt med hela koden
mvh Per H


Hjälp !
Har lagt hela koden för formuläret, blir snart tokigare än vad jag är med v h
per


Imports System
Imports System.IO
Imports System.Threading
Imports System.Text
Imports System.Data
'Imports System.Data.SqlTypes
Imports System.Data.SqlClient
'Imports System.Data.SqlClient.SqlCommand
Imports System.Data.SqlClient.SqlConnection
'Imports System.Data.SqlClient.SqlParameter
Imports System.Data.SqlClient.SqlTransaction

Public Class TR1
Inherits System.Windows.Forms.Form
Private mojb As S1_t_1
Private mojb1 As S2_t_1
Private mojb2 As S3_t_1
Private mojb3 As S4_t_1
Private mojb4 As S5_t_1
Private mojb5 As s6_t_1
Private soi As DTG1_1M
Public lllo As String
Public sokkvv_1 As String
Public sokkvv_5 As String
Public sokkvv_20 As String
Public sokkvv_60 As String
Private MSDATASET As New DataSet
Private MPDAD As SqlDataAdapter
Private WithEvents MTBL As DataTable
Private counter As Integer

Private Structure namna
Public namm As String
End Structure
Private nper As namna
#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
Friend WithEvents r1 As System.Windows.Forms.DataGridTableStyle
Friend WithEvents co1 As System.Windows.Forms.DataGridTextBoxColumn
Friend WithEvents co2 As System.Windows.Forms.DataGridTextBoxColumn
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.DataGrid1 = New System.Windows.Forms.DataGrid
Me.r1 = New System.Windows.Forms.DataGridTableStyle
Me.co1 = New System.Windows.Forms.DataGridTextBoxColumn
Me.co2 = New System.Windows.Forms.DataGridTextBoxColumn
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(536, 360)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(152, 20)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = ""
'
'Timer1
'
'
'DataGrid1
'
Me.DataGrid1.DataMember = ""
Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.DataGrid1.Location = New System.Drawing.Point(56, 8)
Me.DataGrid1.Name = "DataGrid1"
Me.DataGrid1.Size = New System.Drawing.Size(456, 888)
Me.DataGrid1.TabIndex = 2
Me.DataGrid1.TableStyles.AddRange(New System.Windows.Forms.DataGridTableStyle() {Me.r1})
'
'r1
'
Me.r1.DataGrid = Me.DataGrid1
Me.r1.GridColumnStyles.AddRange(New System.Windows.Forms.DataGridColumnStyle() {Me.co1, Me.co2})
Me.r1.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.r1.MappingName = "vlo"
'
'co1
'
Me.co1.Format = ""
Me.co1.FormatInfo = Nothing
Me.co1.HeaderText = "ett"
Me.co1.MappingName = ""
Me.co1.Width = 20
'
'co2
'
Me.co2.Format = ""
Me.co2.FormatInfo = Nothing
Me.co2.HeaderText = "r2"
Me.co2.MappingName = "ar2"
Me.co2.Width = 75
'
'TR1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(712, 966)
Me.Controls.Add(Me.DataGrid1)
Me.Controls.Add(Me.TextBox1)
Me.Name = "TR1"
Me.Text = "TR1"
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)

End Sub

#End Region
Public Function namn(ByRef nmn As String) As String
Return nmn
End Function
Private Sub tr1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ska As String
Dim rmt As C_TA1 = New C_TA1

INfTXT.namntxt(lllo)
'TextBox1.Text = rmt.ob
skrint()
storaseller()
InitializeTimer()
' skrint1()
'Timer1.Interval = 1
'storaseller()
'AddCustomDataTableStyle()
End Sub
Private Sub InitializeTimer()
' Run this procedure in an appropriate event.
counter = 0
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'If counter >= 10 Then
' Exit loop code.
' Timer1.Enabled = False
' counter = 0
' Else
'If vaxl.skvtaemot = 6 Then
counter = counter + 1
TextBox1.Text = "Procedures Run: " & Now
storaseller()
' End If
' vaxl.skvtaemot_nolla()
' Run your procedure here.
' Increment counter.
'counter = counter + 1
' TextBox1.Text = "Procedures Run: " & counter.ToString

End Sub


Private Sub skrint()
Dim rmt As C_TA1 = New C_TA1
mojb = New S1_t_1
mojb.namn = lllo
mojb.sokv = sokkvv_1

mojb1 = New S2_t_1
mojb1.namn = lllo
mojb1.sokv = sokkvv_1

mojb2 = New S3_t_1
mojb2.namn = lllo
mojb2.sokv = sokkvv_1

mojb3 = New S4_t_1
mojb3.namn = lllo
mojb3.sokv = sokkvv_1

mojb4 = New S5_t_1
mojb4.namn = lllo
mojb4.sokv = sokkvv_1

mojb5 = New s6_t_1
mojb5.namn = lllo
mojb5.sokv = sokkvv_1

' soi = New DTG1_1M
' soi.namn = lllo
' soi.sokv = sokkvv_1


'TextBox1.Text = mojb.ar1
'Timer1.Enabled = True
End Sub
Private Sub storaseller()
Dim cn As New SqlConnection
cn.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Trading;Data Source=SMO;Packet Size=4096;Workstation ID=SMO"
Dim STR As String = "SELECT SIGNAL,S1,S2,S3,S4,S5,S6,OM1,OM2,OM3,OM4,OM5,OM6 FROM TR@EC"
MPDAD = New SqlDataAdapter(STR, cn)
Dim CMDBYLD As New SqlCommandBuilder(MPDAD)
MPDAD.Fill(MSDATASET, "TR@EC")
MTBL = MSDATASET.Tables(0)
DataGrid1.PreferredColumnWidth = 50
DataGrid1.DataSource = MTBL
DataGrid1.Refresh()
DataGrid1.Update()
DataGrid1.Show()
'cn.Close()
End Sub
Private Sub form_close()
mojb1.avsluta()
mojb1 = Nothing
mojb5.avsluta()
mojb5 = Nothing
mojb4.avsluta()
mojb4 = Nothing
mojb3.avsluta()
mojb3 = Nothing
mojb2.avsluta()
mojb2 = Nothing
mojb.avsluta()
mojb = Nothing

End Sub


End Class

tydligen fylles datatablen hela tiden, vilket göres att den kommer längst ner Hur tar jag bort det så att enbart senaste kommer in. Mvh
Per H

Har du inget id som du kan kolla vilket det senaste var du ladda in och sen köra t ex SELECT * FROM MyEvents WHERE ID > 11

Senast inlästa ID var alltså 10.

Lägg manuellt in de rader du får tillbaka i gridden.

Så brukar jag lösa det om det bara innebär att hålla koll på t ex event

Finns säkert en bättre lösning.

mvh // Henrik