A voir également:
- Base de donnees SQL avec VB.Net
- Exemple base de données access à télécharger gratuit - Forum Access
- Blob sql ✓ - Forum Webmastering
- Formules excel de base - Guide
- La base de données de sécurité du serveur n'a pas de compte d'ordinateur pour la relation ✓ - Forum Réseau
- Lister les tables d'une base sql ✓ - Forum Programmation
13 réponses
achrefghanmi
Messages postés
7
Date d'inscription
vendredi 5 février 2010
Statut
Membre
Dernière intervention
22 avril 2010
Modifié par pijaku le 4/12/2013 à 13:54
Modifié par pijaku le 4/12/2013 à 13:54
voila tout d'abord les imports :on doit importer des classes dans notre projet
Imports System.Data.SqlClient
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.Sql
public class nom_classe
Public Function Connecter() 'Voici une fonction de connection
Dim w As Boolean
conn = New SqlConnection()
conn.ConnectionString = "Data Source=localhost;Initial Catalog=nom_base_donné";integrated security=true"
Try
conn.Open()
w = True
Catch ex As Exception
MsgBox("connection echoué !!! ")
w = False
End Try
Return w
End Function
'fonction pour la recgercg et la recuperation des donnée:
Public Sub rechercheuser()
Dim table As New DataTable
sql = "select * from om_table where blabla='" &blabla & "' and pwd ='" & pwd & "'"
command.Connection = conn
command.CommandText = sql
Try
adapter.SelectCommand = command
adapter.Fill(table)
For i As Integer = 0 To table.Rows.Count - 1
combobox.item.add ( table.Rows(i)("login"))
Next
Catch
MsgBox("Probleme inattendue !!!")
End Try
End Sub
' voici une fonction pour l'insertion
Public Sub nom_fnction()
Try
sql = "insert into nom_tabler values ('" & nam & "','" & pad & "','" & typ & "')"
command.Connection = conn
command.CommandText = sql
command.ExecuteNonQuery()
MsgBox("Ajout utilisateur terminé", MsgBoxStyle.Information, "Vérfification d'utilisateur")
Catch ex As System.Data.SqlClient.SqlException
MsgBox( ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
' par la suite vous ne faite que d'appeler ces fonctions
Bonjour,
pour les requete d aprés moi, tu les fait en access puis tu les recopies en mode SQL C tout .....
essaye ...
pour les requete d aprés moi, tu les fait en access puis tu les recopies en mode SQL C tout .....
essaye ...
achrefghanmi
Messages postés
7
Date d'inscription
vendredi 5 février 2010
Statut
Membre
Dernière intervention
22 avril 2010
15 avril 2010 à 14:22
15 avril 2010 à 14:22
c'et pas fiable essaiyer mon code .c'et tres facile
edson80
Messages postés
12
Date d'inscription
vendredi 2 octobre 2009
Statut
Membre
Dernière intervention
24 août 2010
23 oct. 2009 à 14:38
23 oct. 2009 à 14:38
ok merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
salu a ts.svp je veux un mini_projet,ou o moins une idee sur un sujet pour fair un petit projet en mode connecte.avec vb dot net en liaison avec sql srver.merci
edson80
Messages postés
12
Date d'inscription
vendredi 2 octobre 2009
Statut
Membre
Dernière intervention
24 août 2010
20 oct. 2009 à 20:02
20 oct. 2009 à 20:02
salu s.v.p je voudrais connecter une base de données vb2005 à sql
fazni
Messages postés
87
Date d'inscription
jeudi 28 mai 2009
Statut
Membre
Dernière intervention
23 mars 2011
3
4 janv. 2010 à 16:17
4 janv. 2010 à 16:17
je suis interesser voici mon email
elfazni@gmail.com
elfazni@gmail.com
halima15
Messages postés
167
Date d'inscription
dimanche 15 novembre 2009
Statut
Membre
Dernière intervention
21 avril 2010
10
14 déc. 2009 à 02:25
14 déc. 2009 à 02:25
les requêtes tu peut les faire par sql, tu va strouver en haut new query tu clik et tu auras une nouvelle requête ou tu peut mettre ton code
holow1
Messages postés
680
Date d'inscription
lundi 21 décembre 2009
Statut
Membre
Dernière intervention
7 décembre 2012
71
2 janv. 2010 à 01:43
2 janv. 2010 à 01:43
bonjour,
j'ai une application complète pour bien comprend le mode connecter et mode déconnecter en vb.net avec une base de donne Access 2003
pour les gens intéresser passer vous email ^_^
j'ai une application complète pour bien comprend le mode connecter et mode déconnecter en vb.net avec une base de donne Access 2003
pour les gens intéresser passer vous email ^_^
holow1
Messages postés
680
Date d'inscription
lundi 21 décembre 2009
Statut
Membre
Dernière intervention
7 décembre 2012
71
14 janv. 2010 à 23:38
14 janv. 2010 à 23:38
bonjour,
^_^
^_^
byhunter
Messages postés
19
Date d'inscription
lundi 7 décembre 2009
Statut
Membre
Dernière intervention
31 mai 2015
Modifié par pijaku le 4/12/2013 à 13:53
Modifié par pijaku le 4/12/2013 à 13:53
slt moi aussi je suis interessé par ton application si c possible " adresse mail supprimée par la modération
em merciii^^
em merciii^^
hajourawm
Messages postés
19
Date d'inscription
mercredi 17 mars 2010
Statut
Membre
Dernière intervention
25 mars 2011
17 mars 2010 à 14:12
17 mars 2010 à 14:12
slt
svp comment je peut ajouter ou bien récuperer des donnes a partir d'un DateTimePicker pour une base sql server avec un code vb.net2008
merci d'avance
svp comment je peut ajouter ou bien récuperer des donnes a partir d'un DateTimePicker pour une base sql server avec un code vb.net2008
merci d'avance
halima15
Messages postés
167
Date d'inscription
dimanche 15 novembre 2009
Statut
Membre
Dernière intervention
21 avril 2010
10
17 mars 2010 à 17:50
17 mars 2010 à 17:50
tu peut bien détailler ton probléme je t'ai pas compris
pour que je puisse t'aider
pour que je puisse t'aider
imports system
imports system.data
imports system.data.sqlclient
If TextBox1.Text = "" Then
Label4.Text = ""
Label3.Text = "* u forget name "
Label3.BackColor = Color.Red
ElseIf TextBox2.Text = "" Then
Label3.Text = ""
Label4.Text = "* u forget pass word "
Label4.BackColor = Color.Red
Else
Try
str = "select * from v_lg where name = '" & TextBox1.Text & "' and pass = '" & TextBox2.Text & "' "
If cn.State <> ConnectionState.Open Then
cn.Open()
End If
Dim cmdlg As New SqlCommand(str, cn)
dr = cmdlg.ExecuteReader
dr.Read()
If dr.HasRows Then
session = dr(0)
str = dr(1)
dr.Close()
cn.Close()
Me.Hide()
Form2.Show()
Else
MsgBox("sorry !! tel me again what u doinG here :) ", MsgBoxStyle.Information)
TextBox2.Text = ""
End If
Catch ex As Exception
TextBox1.Text = ""
TextBox2.Text = ""
MsgBox("run agin plz ", MsgBoxStyle.Information, "Come on Dude")
Me.Close()
End Try
End If
adamodin
Messages postés
78
Date d'inscription
lundi 10 août 2009
Statut
Membre
Dernière intervention
15 décembre 2010
13
Modifié par pijaku le 4/12/2013 à 13:53
Modifié par pijaku le 4/12/2013 à 13:53
je ss interessée adresse mail supprimée par la modération
15 avril 2010 à 16:52
10 nov. 2010 à 10:04
19 janv. 2011 à 13:20
Djenny Floro
21 mars 2011 à 09:28
7 juil. 2011 à 15:21