Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 433 fois - Téléchargée 29 fois
Private Sub createTableFromFile() Try 'le chemin vers mon fichier Dim stFile as string = "D:\monFichier.txt" Dim oSr As New StreamReader(stFile) Dim stTitles As String = oSr.ReadLine oSr.Close() 'je récupere la premiere ligne du fichier Dim Titles() As String = Split(stTitles, ",") 'on supprime la table si nécessaire Dim stQuery As String = "IF EXISTS(SELECT name FROM sysobjects WHERE name = 'MaTable' AND type = 'U')" & vbCrLf & "DROP TABLE MaTable" Dim oCmdDrop As New SqlClient.SqlCommand With oCmdDrop .CommandText = stQuery .Connection = Me.SqlConnection1 End With Me.SqlConnection1.Open() oCmdDrop.ExecuteNonQuery() Me.SqlConnection1.Close() 'je cree la requete create table proprement dit Dim i As Int16 = 0 stQuery = "CREATE TABLE MaTable (" While i < Titles.Length stQuery = stQuery & "[" & Titles(i) & "]" & " varchar(255)" If i < Titles.Length - 1 Then stQuery = stQuery & "," & vbCrLf i += 1 End While stQuery = stQuery & ")" Dim oCmd As New SqlClient.SqlCommand With oCmd .CommandText = stQuery .Connection = Me.SqlConnection1 End With Me.SqlConnection1.Open() oCmd.ExecuteNonQuery() Me.SqlConnection1.Close() Catch ex As Exception MessageBox.Show("error while creating MaTable " & vbCrLf & ex.GetType.ToString & vbCrLf & ex.Message) End Try End Sub
28 avril 2006 à 10:00
27 avril 2006 à 17:33
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.